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Preface 



Golden Delicious Games for the APPLE* Computer includes new 
games, enhancements to familiar games, and suggestions for pro- 
gramming projects to try. It is designed for those familiar with the 
BASIC language who want to write more interesting programs. You 
maybe a parent, teacher, student, or simply a computer enthusiast. 

We will provide you with well-designed routines to create sounds 
or color patterns, to filter data as it is entered, or to disable certain 
keys. These routines can be used as additions to your existing pro- 
grams or as building blocks for new ones. We will also incorporate 
the routines into stand-alone programs that are actual games you can 
play. Both the routines and the stand-alone programs will be models 
of good programming style. They will also promote, by example, our 
belief in the importance of user-friendly computer programs. 

Type the routines as they appear in the text. Save them, using the 
names we have given. This will allow us to take advantage of earlier 
work when we are building bigger routines, and it will save you 
retyping time. To get the most from the book, read the chapters 
sequentially. 

Using this Book with Your Computer 

To use this book, you will need an APPLE II computer with the 
APPLESOFT (FP) BASIC language. Some of our programs are fairly 
small, requiring no more than 16K memory. However, mtist will 
require 32K. The book is designed for use with a disk drive, on 
which to store the programs and routines discussed. Those of you 
with a cassette system will find that saving programs is a lot more 
complex. If you are using a disk system, it does not matter which 
Disk Operating System (DOS) you use — 3.2 or 3.3. 

*APPLE and APPLESOFT are trademarks of Apple Computer, Inc. 
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A Note About Computer Games 

Few computer games in use these days are really new. Their origins 
can be traced to games written for large computers (the only compu- 
ters available ten to fifteen years ago). These early games were 
played using teletype terminals and, thus, were text-line oriented. 
When you notice text scrolling off the screen during a game, remem- 
ber that a roll of teletype paper had no screen size limitation. Pro- 
grammers knew that if players missed an instruction they could look 
back and find it. 

We bring this up for two reasons. First, it is useful to know how 
something got to be the way it is. Computer games have a history, 
and, when we can, we will point out the origins of games we discuss. 

Second, because so many current games are simply microcompu- 
ter adaptations of the earlier, teletype-based games, they have some 
drawbacks — like text scrolling off the screen. Also, they do not take 
full advantage of the micros' capabilities. Throughout the book, we 
will suggest ways you can improve existing games by using your 
APPLE'S features. 



CHAPTER ONE 



Musical Motes 
and Sound Efforts 



This chapter introduces some of the basic sound capabilities of your 
APPLE computer and provides sound-effect routines you can add to 
existing programs. These routines are then used as the basis for new 
programs with suggested variations you can make. 

Program runs are not included in this book. It is impossible to 
include a run of a program that produces sounds; it is difficult to 
include a run of a program that moves colored images. It is, however, 
appropriate to discuss the choices we have made for the way the 
program responds to the player. Thus, the chapters include discus- 
sions of particular player-program dialogues. 

The APPLE produces sound by very quickly clicking a switch on 
and off inside the computer. It produces a tone by projecting a long 
series of these tiny clicks through the speaker. Changing the number 
of clicks per second changes the tone. All the different sounds your 
APPLE makes come from these clicks projected through the speaker. 
For example, a sound roughly equivalent to an A on a musical scale 
requires 440 clicks per second. 
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BELL 

Your APPLE will produce a beep tone, sometimes called a bell, if 
you type Control-G. (Hold down the CTRL key while you type G.) Do 
this a few times and listen to the sound. Control-G makes this sound 
by using a program stored in the computer that produces a particular 
series of clicks. 

Did you notice that the G key is also labeled BELL? The label is an 
artifact from the days when teletype terminals had bells inside, and 
typing Control-G actually rang the bell. These days, the "bell" usual- 
ly doesn't sound like a bell, but most terminals have some kind of 
audible tone produced by typing Control-G. 

Suppose you want to use the beep sound to celebrate a winning 
move in a game. You can include Control-G in a PRINT statement, as 
part of your program. However, control characters don't appear in a 
program listing, so while the characters would be there in your 
PRINT statements, they would be missing from the listing. 

PRINT u Y0U GOT IT ! ! " 
(invisible Control G) 

While this isn't bad, it could be annoying or confusing when you 
look at your listing. Fortunately, there is an alternative. CHR$(7) is 
the ASCII equivalent for Control-G, and these characters will appear 
in a listing. Use CHR$(7) within a PRINT statement like this: 

PRINT 11 YOU GOT IT ! ! " ; CHR$ ( 7 ) 

PRINT CHR$ ( 7 ) ; "YOU" ; CHR$ ( 7 ) ' "GOT" ; 

CHR$(7);"IT! ! !";CHR$(7) 

You can see, however, that typing CHR$(7) can become tiresome 
very quickly, and besides, you might forget which number to use. If 
you define a string variable for the beep, the PRINT statements are 
easier to type. We'll use BL$ as the variable for the beep: 



10 BL$ = CHR$(7) 

20 PRINT BL$ ; "YOU ";BL$;"G0T ";BL$;"IT! ! ! " ; BL$ 



MUSICAL NOTES AND SOUND EFFECTS 



PAUSE 

If you try this on your APPLE, you'll notice that the words and the 
tones occur almost simultaneously. The PRINT statement is ex- 
ecuted so rapidly that it's hard to tell that the tones follow the words. 
In fact, if you want to play a tone several times, you'll find that the 
sounds blend together. (PRINT BL$;BL$;BL$ sounds like one beep 
instead of three.) 

The SPEED command controls the rate at which characters are 
displayed on the screen in a PRINT statement. SPEED = 255 is the 
fastest; SPEED = 0 is the slowest. When no speed is specified, the 
default speed (255) is used. Here is an interesting way to use the 
SPEED command to control the delay between bells: 

10 REM . . . BEEP PAUSE. . . 

11 : 

12 HEM INSEBT A PAUSE BETWEEN BEEPS USING 'SPEED* 

13 . 

100 BL I = CHflS (7) 
110 SPEED= 0 
120 PB INT BLS;BLS;BLS 
130 SPEED= i55 



RUN it with the speed set at 0. Then RUN the program again, 
changing the speed in line 110 to 50, 100, 150, etc. 



BELL GAMES 

Simple programs that use the beep are easy to design. For instance, 
teachers or parents of young children might use the beep in a pro- 
gram to teach counting. One such program asks the player to pick a 
number from 1 to 10. Then the program displays the counting series 
to reach that number, beeping to punctuate each number. If, for 
instance, the child pressed 5 , the program would beep and display 1 , 
beep and display 2, beep and display 3, etc. The child playing counts 
the beeps while watching the number series appear on the screen. 
Here is the program. 
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J 0 HEM . . . INPUT BEEPS . . . 

11 . 

12 REM BEEP # OF TIMES INPUT 

J 3 . 

10 0 L = 1. HEM MINIMUM # OF BEEPS 
1 10 H = 5. HEM MAXIMUM 
20 0 TEXT . HOME 

210 PHINT "PLEASE PICK A NUMB EH FHOM " ,L< " 

TO ",H ( : INPUT " : " f N 
220 IF N < L OR H) H THEN 200 
23 0 PHINT 

30 0 PHINT " COUNT THE BEEPS...". PHINT . PHINT 

310 FOH J = 1 TO 1000: NEXT . REM PAUSE BEFOHE FIHST BEEP 

320 FOH J = i TO N 

330 SPEED= 0 

34 0 PHINT " " , : HEM WASTE TIME WITH 2 BLANKS 

350 SPEED= 255 

360 PHINT J, 

370 PHINT CHHS (7); 

39 0 NEXT 

500 PHINT : VTAB 18 

510 PHINT "PHESS HETUHN TO THY AGAIN... " ; 
5 20 GET 25 

530 IF 23 = CHHS (27) THEN END ; HEM CHECK FOH ESC 
540 GOTO 20 0 



SAVE this program, as INPUT BEEPS, then RUN it. 

Look at the program listing. How would you change the maximum 

number of beeps to 20? 



110 H = 20 



This is a slightly unusual program because the player is always in 
control. In most educational programs and many games, the compu- 
ter is in control. In fact, the computer is usually testing rather than 
teaching. As you write programs, think about who should be in 
control during the game. It's usually more fun for the players if they 
are in control. 

A more conventional variation onthebeep and number idea is one 
in which the program selects a number, beeps that many times, then 
asks the player to type the number of beeps. Notice that this new 
program tests the player's ability to count beeps. It also gives en- 
couragement if the guess is close to the right answer (see lines 120 
and 430 below). 

Instead of entering the entire program, we can modify the last 
program, INPUT BEEPS, as follows: 
Delete lines 220, 230, and 360. 

Insert these lines. (Some will be changes to make to other lines.) 
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JO REM . . . COUNT BEEPS-INPUT BEEPS. . . 
11 

100 L = 4; REM MINIMUM # OF BEEPS 

J JO H = J 6 : REM MAXIMUM 

12 0 C = J : REM HOW CLOS v . FOR " ENCOURAGEMENT" 

ZJO N = J NT f (H - L J ) * RND (J>) * L: REM # OF BEEPS 

3 8 0 HTAB J 

40 0 INPUT "NOW, HOW MANY BEEPS WAS THAT? ";G 
4J0 PRINT 

420 IF C = N THEN PRINT "YOU GOT IT!!!": GOTO 500 
430 JF ABB ( G - N ) < = C THEN PRINT 

"CLOSE, BUT NOT QUITE... THERE WERE " ; N , " . " : GOTO 500 
440 PRINT "PLAY AGAIN... THERE WERE " ;N,"." 



SAVE this program as COUNT BEEPS and RUN it. 

How would you change the "encouragement" variable to 3? 



120 C = 3 



OTHER SOUNDS 



While the beep offers interesting programming possibilities for you 
to experiment with, your APPLE can make many other sounds as 
well. As noted earlier, the number of clicks per second (frequency) 
determines the pitch of the tone. Thus, changes in the click frequen- 
cy change the tone produced by the computer. 

First, enter the following and SAVE it as NEXTDATA MODULE. It 
allows READ DATA to begin at any line number. You can also use 
this module in your other programs to RESTORE the DATA pointer 
to a specific line number. (See Appendix B for additional explana- 
tion.) 
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10 REM . . . NEXTDATA MODULE. . . 

11 : 

12 REM NEIT BEAD FROM ANY LINE # 
J 3 : 

1 8 9 S 1 : 
18 9 9 2 : 
18 993 REM 
18994 MEM 
1 8 99 9 
1 9 00 0 



NEXT DATA FROM LINE 
ENT1Y: 2 LINE I 



19010 
1 9 097 
1 9 09 8 
1 9 0 9 9 
19100 



IF YR% THEN 19 2 0 0: 
REM CHECK IF NEXT DATA ROUTINE ALREADY LOADED 
YJ?% = 770: REM NEXT DATA ADDRESS 

REM NEXT DATA ROUTINE WRITTEN IN MACHINE CODE 



POKE 770,173 
POKE 774,80: P 
19110 POKE 778,133 
POKE 782,214: 
19120 POKE 786,105 

POKE 7 9 0,165: 
19130 POKE 794,133 

1S200 Z% = Z / 256 : POKE YR% - 2,2 

POKE YR% - 1,2%: REM LINE I 
19210 C.AL L Ym 
19220 RETURN 
B 0 0 0 0 
B0 01 0 
6 0 0 20 



POKE 771,0: 
OKE 775,173 : 

POKE 779,81 
POKE 783 , J B5 

POKE 7 8 7,4: 
POKE 7S1 156 

POKE 795,126 



POKE 772,3: POKE 773,133: 
POKE 778 , 1 : POKE 777 , 3 
POKE 780,32: POKE 781,26 
POKE 784,155 
POKE 78 8,13 3: 
POKE 792,105 
POKE 796,96 
- 25 S « 2%: 



POKE 785 , 24 
POKE 789,125: 
POKE 793,0 



REM * COPYRIGHT 1981 BY HOWARD FRANKLIN, PALO ALTO, CA * 



SAVE this program as NEXTDATA MODULE. 

This is the first of several "black box" routines we will give you. 
The term "black box" is used to describe something whose perform- 
ance is understandable, but whose operation is not. Our "black box" 
routines are written in machine code. As we introduce them, we will 
tell you what they do, but not how they work, because they are too 
complicated to explain here. For those who are interested, refer to 
Appendix B . Most of you, however, will just use them unexplained, 
to make your programming easier. 

Add the following to NEXTDATA MODULE: 



10 REM . . . SOUND MODULE -NEXTDATA MODULE. . . 

11 : 

12 REM SOUND MODULE TO PLAY ALPHABETIC STRINGS AND GENERATE 
SOUND EFFECTS 

1 3 : 

12 9 91 : 

12992 : 

12993 REM *® SOUND A FITCH FOR A SET DURATION 

12994 REM ENTRY: WP PITCH # 

12995 REM (WP=0 AND ROUTINE NOT LOADED = 

INITIALIZATION ONLY) 

12996 REM WD DURATION 
1 2 9 9 9 

13 000 IF WR% THEN 13200: REM CHECK IT SOUND ROUTINE 

ALREADY LOADED 
13010 WR% = 80O:WP% ^ 7 9 9 : WD% = 797: REM SOUND, PITCH, 

DURATION ADDRESSES 
13020 Z = 13100: GOSUB 1S000: REM SET RE1D DATA POINTER 
13050 Z ^ WR%: REM LOAD SOUND ROUTINE 
13 06 0 READ 11 : IF Z 1 > =0 THEN POKE Z,ZJ:2 = 

1*1; GOTO 1306 0 
13070 IF y? = 0 THEN RETURN : REM TRAP FOR 
INITIALIZATION ONLY 
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1 3 0 9 7 : 

J 3 0 9 8 REM SOUND BOUTINS WRITTEN IN MACHINE CODE 
1 3 0 9 9 : 

13100 DATA 1 72 , 31 , 3 , 1-8 5,7 3 , 3 , 1 4 1 , 31,3 , 1 6 0 , 0 , 2 3 8 , 29 , 3 , 23 8, 
30,3,174,31,3,173,48,192 



13 110 DATA 138,208,10,208,29,3,208,5,208,30,3,240,5,202,240, 

2 3 4,208,238,98 
13117 : 

PITCHES 



13118 
13119 
13120 
1 3130 
13140 
13150 
13190 
1 3200 

13210 
1 3 220 
1 3 23 0 
1 329 2 
1 3 29 3 
1 3 2 94 
1 3 29 5 
1 32 99 
1 3 3 0 0 
13310 



HEM 

DATA 
DATA 
DATA 
DATA 
DATA 
1% = WD 



1,Z%: REM 
POKE WP%,WP: 
CALL VR% 
HETUHN 



255,24 2, 228, 215,203,192,181,171 
161,152,143,135,12 7,120,113,107 
101,95,90,85,80,75,71,67 
63,59 

-1: REM FLAG TO STOP HEADING DATA 
/ 256; POKE WD% , WD - 256 * Z%: POKE WD% 



DURATION 
REM PITCH I 



BEM * PLAY STRING OF ALPHABETIC LETTERS 
REM ENTRY. Z$ STRING 
REM WD DURATION 



REM EMPTY STRING 



IF LEN (Z5 ) = 0 THEN RETURN 
FOR W = 1 TO LEN (2$) 
13320 WP = ASC < MIDI (Z$ , V, 1 ) ) - 64. REM NEXT LETTER 
13 330 IF WP > =1 AND WP < =26 THEN GOSUB 1300 0: 

REM PLAY IF IN RANGE 
13340 NEXT 
13350 RETURN 
13 382 : 
13383 REM 
13 384 REM 

13385 REM 

13386 REM 



* SOUND EFFECTS * 

ENTRY. Wl LENGTH OF EACH TONE (>=0) 
W2 STEP BETWEEN TONES (>0) 

(W2 = 0 AND ROUTINE NOT LOADED = 



INITIALIZATION ONLY ) 



1 3 38 7 
1 3 3 8 8 
1 3 3 8 5 
1 3 3 9 0 
1 3 391 
1 33 99 
1 340 0 
13410 



REM 
REM 
REM 
REM 
REM 



W3 STARTING TONE (0/255) 

W4 # OF TONES IN CYCLE 

W5 1=CYCLE DOWN; -1=UP; 0=DOWN AND UP 

W6 PAUSE EET^EEN REPETITIONS OF CYCLE 

W7 # OF REPETITIONS OF CYCLE 



IF WE% THEN 1 3 5 0 0 . REM 
IF WR% = 0 THEN WP = 0 
ROUTINE IF NECESSARY 
13420 WE% = 809 REM EFFECTS ADDBESS 



CHECK IF EFFECTS ALREADY LOADED 
GOSUB 13000: REM LOAD SOUND 



1 3430 

1 3 5 0 0 

13 5 10 
1 3 52 0 
1 3 5 3 0 
1 3540 

1 355 0 
1 3 56 0 

13570 
1 3 6 0 0 
13610 
1 3 6 20 



1 3 6 3 0 
1 3 6 5 0 
1 3SS0 
13 6 7 0 
6 0 0 00 
SO 010 

6 0 0 20 



REM TRAP FOR 



256 



WH%: REM DURATION 



= 1 : REM FORCE VALID W2 
f?EM FORCE VALID W3 
I OF REPETITIONS 
< 0 THEN 13600. 



IF W2 = 0 THEN RETURN 

INITIALIZATION ONLY 
WH% = Wl / 25 6:WL% = Wl 

AS TWO BYTES 

IF W2 < =0 THEN W2 

IF W3 < 0 THEN W3 = E 

FOR Z = 1 TO W7: REM 
Z% = W3 * W2 * W4; IF W5 

REM TRAP FOR UP ONLY 

FOR Zl = W3 TO Z% STEP W2: REM CYCLE DOWN 

IF Zl < = 255 THEN POKE WP%,Z1: POKE WD%,WL%: 

POKE WD% * 1,WH%: CALL WE%: REM NEXT TONE IS IN RANGE 

NEXT 

IF W5 > 0 THEN 13650: REM TRAP FOR DOWN ONLY 
FOR Zl = Z% TO W3 STEP - W2: REM CYCLE UP 
IF Zl < = 255 THEN POKE WP%,Z1: POKE WD%,WL%; POKE 
WD% * 1 , WH%: CALL WE%: REM 
NEXT TONE IS IN RANGE 
NEXT 

FOR Zl = 1 TO V6 . 
NEXT 
BET\JBN 



NEXT 



REM PAUSE BETWEEN CYCLES 



REM a COPYRIGHT 1981 BY HOWARD FRANKLIN, 
PALO ALTO, CA * 
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Type it and SAVE it as SOUND MODULE. This is a collection of 
subroutines that can be used in other programs but that does not do 
anything by itself. 



MUSICAL NOTES 

Make the following changes to SOUND MODULE and you will have 
a program in which the number keys (1 though 8) correspond to 
notes on the musical scale: 
Delete lines 13120 through 13150. 



JO REM . . . KEY SI J S -SOUND MODULE. . . 

11 . 

12 REM PROGRAM TO "FLAY" THE KEYS 1JB 

1 3 . 

100 GOSUB 13000 REM INITIALIZE SOUND ROUTINE 
20 0 TEXT . HOME 

210 PRINT "'PLAY' A TUNE USING THE NUMBERS 1 TO 8 

2 2 0 PRINT 

230 PRINT "PRESS RETURN TO END YOUR ' TUNE ' ... " 
240 PRINT "PRESS ESC TO STOP PLAYING..." 
250 PRINT 
300 GET Z5 

310 IF Z§ = CHR5 (13) THEN 50 0. REM RETURN 

3 2 0 IF Z 5 = CHRS ( 27) THEN END . REM ESC 

33 D IF ZS < "1" OR Z5 > "8" THEN 30 0. REM IGNORE OTHER KEYS 
340 PRINT 1% \ 

35 0 WP = ASC (Z5) - 48; REM CONVERT TO J/S 

36 0 WD = 50. REM DURATION 
370 GOSUB J3D00 

380 GOTO 30 0 

50 0 PRINT . VTAB 18 

5J0 PRINT U PRESS RETURN TO TRY AGAIN... 
5 2 0 GET Z 5 

53 0 IF 2% = CHRI (27) THEN END : REM ESC 

54 0 GOTO 20 0 

I 3120 DATA 25 5,228,203,192,171,152,135,127 



SAVE this program as KEYSl/8. RUN it to play simple tunes using 
the keys 1 through 8. As you "play," the numbers you type appear on 
the screen. You can copy them to keep track of the tunes you like. As 
in our other programs, press RETURN to end your tune; press ESC to 
stop the program. 

The SOUND MODULE routine instructs the computer to produce 
tones at a number of different frequencies. It works much the same as 
the internal routine activated when you type Control-G. This time, 
we chose frequencies that roughly correspond to the scale and used 
the numbers 1 through 8 to play the scale. The matching pattern is 
arbitrary and is assigned by the DATA statements in lines 13120 
through 13150. 
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Play this series of notes, pausing when you come to an asterisk: 
6545666 * 555 * 688 * 6545666655654. What is the tune? 



Mary had a little lamb. 



By changing the DATA statements in lines 13120 through 13150, 
we can create additional click frequencies. We can match them this 
time to the letter keys, in alphabetical order. The routine that follows 
provides a twenty-six-note chromatic scale. 

Here are the statements that change the assignment of keys 1 
through 8 to keys A through Z. Make the following changes to 
KEYS 1/8: 



10 BEM . . . KEYSAJ Z-KEYS1 J B . . . 
11 

1Z BBM PBOGB^M TO " PLAY " THE KEYS AJZ < ALPHABET I CAL OBDEB) 
J 3 ; 

210 PB INT "'PLAY' A TUNE USING THE KEYS A THROUGH Z" 

330 IF Z% < "A" OB Z% > "2" THEN 300: HEM JGNOBE OTHEB KEYS 

350 VP = ASC (ZS) - 64. BEM CONVERT TO AIZ 

1312 0 DATA 255,242,228,215,203,192,181 ,171 

13130 DATA 161, 152, 143, 135, 127, 120,113, 107 

J 3140 DATA 101,95,90,85, 80, 75,71,5 7 

13 15 0 DATA 6 3,59 



SAVE this program as KEYSA/Z. RUN it and play on the keyboard 
using the keys A through Z. Listen to the sounds. When you find a 
series of notes you like, copy the letters from the screen so you can 
play your "song" again. 



MUSICAL MESSAGE 

Obviously, the next thing to have is a program that plays your 
message from memory rather than from the keyboard. The following 
program allows you to enter the series of tones you want from the 
keyboard. The program plays the series when you press RETURN 
instead of each time you press a key. 
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Make the following changes to KEYSA/Z: Delete lines 300 through 
380, and add the following lines: 



JD REM . . . MUSI C MESSAGE -KEYS A J 2 . . . 

11 : 

12 REM PROGRAM TO INPUT, THEN " PLA Y " 
A STRING ( A/Z ALPHABETICAL) 

1 3 : 

2 3 0 PRINT " ENTER 1 TUNE 1 THEN PEESS RETURN TD PLAY. 

24 0 PB1NT 

25 0 INPUT "TUNE: " < 1 % 

30 0 WD = 50. REM DURATION 

310 GOSUB J'3 3 0 0: REN PLAY STRING 



SAVE this program as MUSIC MESSAGE. RUN it, using some of the 
"tunes" you copied from before. 

How about typing your name and listening to the computer "play" 
it? How do your city and state "sound?" A variation might ask for 
your name and then play it several times, perhaps alternating direc- 
tion. 

How would you alter the program so that the message was played 
three times, instead of just once? 



305 FOR J = 1 to 3 
315 NEXT 

Change MUSIC MESSAGE by adding the following lines: 



10 REM . . .BACK AND FORTH-MUSIC MESSAGE. . . 
J 1 ; 

J 2 REN INPUT THEN "PLAY" A STRING BACK AND FOBTH 
1 3 : 

110 BF = J; REN # OF TIMES BACK AND FOBTYi 
25 0 IHPVT "TUNE: ",FS 

2 B 0 B % — " " 

270 IF LEN (FS) THEN FOR J = J TO LEN (Ff).BS = 3$ + 

MIDI (FS , LEN ( F $ ) * 1 - J J): NEXT : REM REVERSE STRING 
290 FOR J = J TO BF 
305 Zl = FS. REN FORWARD 

3 2 0 1 % = Bf. GOSUB i 3 3 0 0 : REM BACK 
330 NEXT 



SAVE this program as BACK AND FORTH and RUN it. Type A 
through Z as your tune and listen to it. 
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You have a program that will play your series of letters first the 
way you typed them, then again in the opposite direction. After you 
have experimented with a few words and phrases, try typing some 
palindromes to see how they sound. (A palindrome is a series of 
letters that reads the same in either direction. Two well-known 
palindromes are "Madam I'm Adam" and "A man a plan a canal 
Panama.") 

1. All the tones are the same length. What line do you change to 
make the tones longer or shorter? 



2. How do you change the number of times the line is played 
back and forth? 



1. Line 300 

2, Change the value of BF in line 110 



PIANO 

When you are ready for a different keyboard, create the following 
PIANO program. This time each keyboard letter is associated with 
one note, left-to-right and bottom-to-top order, instead of 
alphabetical order. 

To create PIANO, make the following changes to the program 
KEYSA/Z (not BACK AND FORTH, although these changes would 
change the BACK AND FORTH keyboard as well): 
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JO BEM . . . PIANO-KEYSA/Z 

1 1 : 

12 BEN "PIANO" USING A/2 

13 : 

210 PRINT " 'PIANO' USING THE KEYS A THHOUGH Z" 
1 31 20 DATA J7i,2Q3,22S,J52,§0,;i43,;i35,]27 
J3 130 DATA 67,J20,J13,J07,J8i,J92,63;59 
J3i40 DATA JOJ, 85, J6J, 80, 7J,2J5, 95,242 
J3J50 DATA 75,255 



Save this program as PIANO. Again, all we have done is change the 
pitch assignment in lines 13120 through 13150. 

Using this program, you can play your keyboard somewhat like a 
piano. (Except that the tones all have the same length and you can 
play only one note at a time.) See if it is easier to pick out your 
favorite tunes when the notes are arranged this way. 



ELECTRIC ORGAN 



One limitation of the previous programs is that the tones are of set 
duration. We can vary the length of all the tones, but we have not yet 
been able to vary the length of individual tones independent of each 
other. 

The following program takes duration time to the other extreme. A 
tone lasts until a new key is pressed — in effect, imitating an electric 
organ. 
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Modify PIANO as follows: 



JO BEH . . . OBGAN-PIANO. . . 
J 1 . 

12 BEH ELECTRIC OBGAN 

13 : 

100 GOSUB 1 37 00: BEH INITIALIZE OBGAN BOUTINE 
210 PB INT "'OBGAN' USING THE KEYS h THBOUGH Z" 
370 GOSUB 13700 

1 3 S 9 2 : 

13693 HEM * OBGAN * 

13894 BEH ENTBY : WP PITCH # 

13S95 BEM 

(WP=0 AND BOUTINE NOT LOADED = INITIAL! ZATI ON ONLY) 

1 3 6 9 9 

J 370 0 IF WS% THEN 1 3 9 0 0: 

BEH CHECK IF OBGAN BOUTINE ALREADY LOADED 
13710 WS% s S 8 2 : BEH OBGAN ADDRESS 

1 3 72 0 IF WB% = 0 THEN W = WP.WP = 0: GOSUB 1 3 0 0 0 : WP = W: 

BEH LOAD SOUND BOUTINE (SAVING PITCH) 
13730 Z = 13800. GOSUB 19 0 0 0: BEH SET BEAD DATA POJNTEB 
13 750 Z = WS%. BEH LOAD OBGAN BOUTINE 

13 7S0 BEAD Zl . IF Zl > ^ 0 THEN POKE 2,21:2 = Z * 1: GOTO 137S0 
13770 IT WP = 0 THEN BETUBN : BEH TBAP FOB INITIALIZATION ONLY 
13 79 7 : 

13798 BEH OBGAN BOUTINE WBITTEN IN HACHINE CODE 
1 3 7 9 9 

13800 DATA 172,31,3,185,73,3,141,31,3,173,0,192,48,14, 

174, 31 , 3,173,48,192 
13 810 DATA 135,208,0,202,240,239,208,248,96 
13 890 DATA -1: BEH FLAG TO STOP BEADING DATA 
1 3 9 0 0 POKE WP%,WP: BEH PITOi I 
13910 CALL WS% 
13920 BETUBN 



SAVE this program as ORGAN. Play it to see how it differs from 
PIANO. 



SOUND EFFECTS 



Finally, we are providing a very powerful SOUND EFFECTS 
routine. Because it offers so many possibilities, we will suggest a 
systematic way for you to explore it. 
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We can develop a huge variety of sound effects by adding the 
following to SOUND MODULE: 



REM 



. SOUND EFFECTS -SOUND MODULE. 



REM SOUND EFFECTS DEVELOPER 



0 
1 
0 

10 

1 

200 
4 



31 0 
320 
3 3 0 
3^0 
350 
360 
370 
500 
510 
520 
530 
540 

soo 

610 
620 
630 
700 
710 
720 
810 

820 



HOME 
PR INT 
FEINT 
PRINT 
PRINT 



"LENGTH OF EACH TONE: 
"STEP BETWEEN TONES: 
"STARTING TONE: " ;W3 
"I OF TONES IN CYCLE : 



" ;W1 
;W2 



PR INT "l^CYCLE DOWN ; =1=UP; 



PAUSE BETWEEN REPETITIONS 
» OF REPETITIONS : ";W7 
VTAB 18 

PRESS RETURN TO LISTEN... »; 



PB INT 
PB INT 



W4 

0=UP AND DOWN . 

;W§ 



1 0 

1 1 
12 

13 : 

100 GOSUB .13400: REM INITIALIZE SOUND EFFECTS ROUTINE 
210 Wl 
220 W2 

2 3 0 W3 

24 0 W4 

25 0 W5 

26 0 we 
270 V7 
30 0 TEIT 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GET Z$ 

IF Zf = CHRf 
GOSUB 13400 
PRINT : PRINT 

PRINT "PRESS RETURN TO TRY NEW VALUES. .. " ; 
GET Zl 

IF ZS - CHRI (27) THEN END : REM ESC 
TEXT : HOME 

PRINT "FOR EACH PARAMETER , ENTER A NEW VALUE" 
PRINT "OR PRESS RETURN TO KEEP THE OLD ONE." 
PRINT . PRINT "OLD LENGTH OF EACH TONE: " , Wl ; " 
INPUT Zl: IF LEN (ZS) THEN Wl = VAL (Zf) 

P HINT "OLD STEP BETWEEN TONES: "<W2;" 

IF LEN (ZS) THEN W2 = VAL (Zf) 
PRINT "OLD STARTING TONE: ";V3," NEW 
IF LEN (Zf) THEN W3 = VAL (Zf) 
PRIMT " OLD # OF TONES IM CYCLE: " ( W4;" 
IF LEN (Zf) THEN W4 = VAL <Z$ ) 
PRINT "OLD DOWN /UP PARAMETER: " ;W5 ; " NEW 
IF LIN ( Z $ ) THEN W5 = VAL 
PRINT "OLD PAUSE BETWEEN: " ;V6 ; " 

IF LEN (21) THEN W6 = VAL (Zl) 
PRINT "OLD # OF REPETITIONS: " ;W7 
IF LEN (ZD THEN W7 « VAL (ZD 



' ;W5 



(27) THEN END 



REM ESC 



8 3 0 



840 



PRINT : 
INPUT 1%: 
PRINT : 
INPUT 1$: 
PRINT : 
INPUT Z $ : 
850 PRINT . 

INPUT 2 5 : 
860 PRINT : 
INPUT ZS: 
870 PJfINT : 
INPUT Z % : 
89 0 GOTO 30 0 



NEW: 



NEW: 



NEW: 



NEW. 



NSW: 



SAVE this program as SOUND EFFECTS. RUN the routine once or 
twice, and then come back to this discussion. 

The routine displays the values that have been set for each para- 
meter and then produces the sound effect when you press RETURN. 
Next, it asks for your changes to the parameters, one at a time. 
(Pressing RETURN retains the current value.) 

The variety of sound effects you can get from this routine is 
immense. Although it's tempting to vary each parameter every time 
you run the routine, your exploration will be most productive if you 
vary only one or two parameters at a time. When you find sounds 
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you like, play with the numbers to see if you can refine them further. 
Then make note of the numbers so you can use this routine, with 
these particular numbers assigned to the variables, in future pro- 
grams. 

First, see how the sound changes when you change the starting 
note. The possible tones in this cycle range from 0 (high) through 
255 (low). We started with 0, the highest tone. Try some starting 
tones that are lower. 

We originally set the number of notes in the cycle to 100; try 
shortening it. Did you notice that, as the cycle gets shorter, you begin 
to get bursts of sound? The step size is the number of tones between 
each tone. If you increase the step size, the resulting sound is less 
smooth. 

Now, you might want to change the number of times the cycle 
repeats and the length of the pause between cycles. Neither of these 
changes will have a dramatic effect on the sound. However, chang- 
ing the up/down parameter will significantly change what you hear. 
Your choices are 1 (down only), — 1 (up only), and 0 (up and down). 

At this point, you are probably becoming familiar with the parts of 
the routine you have explored. After you work with the routine for a 
while, you will be able to predict the kind of sounds different 
variable values will make. 

By now, you should have a collection of number combinations 
written down that produce sounds you like. When you use this 
routine in a program, assign those numbers to the variables in the 
routine to produce the sound effects you want. 



CHAPTER SUMMARY 

In this chapter you saw how to use the bell and the SPEED statement. 
You were also given a stand-alone program that simulates a piano 
and another that simulates an organ. 

The most useful program in this chapter is SOUND MODULE. 
This module allows you to produce musical sounds of all types and 
to make exotic sound effects. You will use SOUND MODULE in 
some of the programs presented later in this book. 
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Sound Subroutine Reference Summary 

This chapter has shown you how to manipulate the various sound 
capabilities of your APPLE computer. Now we will show you how to 
incorporate sound into your own programs. 

The variable names beginning with W 5 X, Y 5 and Z are used by our 
subroutine modules and should not be used in your programs except 
for communicating with our routines . Nor should your programs use 
line numbers between 10000 and 50000, because that is the area 
where our subroutine modules will be located. 



Music Sounds Summary 

To make music using the keyboard letters A to Z: 
Entry point = 13300 
Entry variables: 
Z$ string of letters 
WD tone duration 
Your entry to make music might look like this: 

1220 Z$ = "GOLDEN DELICIOUS GAMES" 
1230 WD = 100 
1240 G0SUB 13300 
1250: 

1260: REM: PROGRAM CONTINUES 
It is as easy as that! 



Sound Effects Summary 

To make sound effects, you can set as many as seven variables or use 
their default values. 
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Entry point = 13400 
Entry variables: 

Wl length of each: >= 0 

W2 step between tones: > 0 

W3 starting tone: 0 through 255 

W4 number of tones in cycle 

W5 1 = cycle down; — 1 = cycle up; 0 = down and up 
W6 pause between repetitions 
W7 number of repetitions 
Your program segment to make a sound effect might look like this: 

1300 Wl = 4 : W2 = 1 : W3 = 50 : W4 = 20 
1310 W5 = 0:W6 = 200 :W7 = 4 
1320 G0SUB 13400 
1330 : 

1340 : REM : PROGRAM CONTINUES 



CHAPTER TWO 

Low-Resolution Graphics 



In this chapter, you will learn the fundamentals of LO-RES and a 
number of different color effects. We will show you how to print 
dots of color on the screen. Then we will extend these ideas to 
colored lines, boxes, borders, and routines to cover the whole screen 
with color. 

This chapter should help you become familiar enough with using 
LO-RES to add LO-RES capabilities to your own programs. While 
you may not be using the specific routines we develop here, you will 
be able to apply the ideas and create the effects you want in your own 
programs. (In Chapter 3, you will see how to create and manipulate 
"images" or patterns of LO-RES dots, allowing you to include addi- 
tional effects in your programs.) 

Your APPLE computer has sixteen colors that will display on your 
color TV or monitor. You control these colors using low-resolution 
graphics. Low resolution means that you can set only a limited 
degree of detail in your images. The smallest point you can address 
(do something with) is half the size of a text character printed on the 
screen. This is in contrast to high-resolution graphics that allow you 
to address much smaller points, thus getting greater detail in your 
images. However, only six colors are available in the HI-RES mode. 
We will discuss high-resolution graphics in Chapter 4. 

You can use two modes in LO-RES. One mode allows forty lines of 
graphics and a four-line text window at the bottom of the screen. The 
other allows the whole screen (forty-eight lines) to be filled with 
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graphics. We will use the first mode most often because it permits us 
to put instructions in text mode on the same screen as the picture. 

Only by using the four-line text window can you mix color 
graphics and text on the screen. Later we will show you how to 
create block letters to write words or numbers using LO-RES. 



COLOR GRAPHICS ON THE APPLE 

You need only five commands to create LO-RES color effects: GR, 
COLOR, PLOT, HLIN, and VLIN. 

GR tells the APPLE to go into the mixed-graphics mode. The 
screen is cleared and shows all black. (We will show you full-screen 
LO-RES graphics later in this chapter.) 

COLOR sets a particular color. A color is set until you change it 
with another COLOR command. Type COLOR=4 and you will get 
APPLE color DARK GREEN. Use the following APPLE Color Table 
as a reference: 



0 


BLACK 


1 


MAGENTA 


2 


DARK BLUE 


3 


PURPLE 


4 


DARK GREEN 


5 


GRAY 1 


6 


MEDIUM BLUE 


7 


LIGHT BLUE 


8 


BROWN 


9 


ORANGE 


10 


GRAY 2 


11 


PINK 


12 


LIGHT GREEN 


13 


YELLOW 


14 


AQUAMARINE 


15 


WHITE 



PLOT tells the APPLE to draw a colored dot at a particular point. 
When you are working in mixed-graphics mode, your screen is 
"divided" into a forty by forty point grid. The points are numbered 
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from 0 to 39, with point 0, 0 at the upper left corner of the screen. In 
the number pair that specifies a point, the H (horizontal) coordinate 
is written first; the V (vertical) coordinate is written second. Thus, 
PLOT 3,9 tells APPLE to PLOT a dot in the third column across and 
in the ninth row down. 



1 
















0,0 








































4,2 




























2,4 



























HLIN draws a horizontal line between two points at a specified 
vertical row. VLIN draws a vertical line between two points at a 
specified horizontal column. For example, HLIN 3,23 at 9 tells 
APPLE to draw a horizontal line from the third column to the 
twenty-third column, at the ninth row down. 

To summarize: To draw a colored dot, go into graphics mode, set a 
color, and plot a point. To draw more than one dot of the same color, 
simply plot the next point. HLIN and VLIN plot horizontal and 
vertical lines, respectively. If you want to change the color, do so 
before you plot another point. 

Try this program: 

100 GR:C0L0R= 4 

110 HLIN 3,23 AT 9 

120 VLIN 3,25 AT 23 

130 END 
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COLORED DOTS 

Below is a simple program for printing colored dots at random 
locations on the screen. 

I 0 REM . . . COLOJ? DOTS . . . 

II : 

10 0 GR : HOME 
200 PRINT 

210 PBJNT "PRESS ANY KEY TO STOP 

300 H = I NT (40 ft RND (J)) 

400 V = INT (40 ft END (1)) 

5 0-0 COlOR= INT (16 ft END (J)) 

600 PLOT H, V 

700 P = 200 

710 FOB 1 = 1 TO P. NEIT : REM PAUSE 

8 00 IF PEEK ( - 1 6 3 84 ) < J 28 THEN 3 0 0: REM NO KEYSTROKE 
810 GET 1% REM THROW h\JM KEYSTROKE 

Notice how the plotting locations are specified in line 300 (hori- 
zontal) and line 400 (vertical) . Each coordinate is generated random- 
ly from the numbers 0 to 39. The colors are generated randomly from 
0 to 15 (line 500), so that all possible colors are included. The dot is 
actually plotted at line 600. 

The formulas in lines 300 and 400 can be generalized so that you 
can generate a random number between any two numbers A and B. 
For future applications, use this generalized formula to generate 
random numbers. 

LET R =INT ((B-A+1)*RNB(1)) + A 
The last important item in this program is the pause in line 700. 
Changing the value in this variable changes the length of time before 
the next dot is displayed. 

Type the preceding program and SAVE it as COLOR DOTS. RUN 
this COLOR DOT program. You can stop it by pressing any key. 
Mixed LO-RES mode will still be set, with only four lines of text at 
the bottom of the screen. 

To return to full-screen text mode, type the command TEXT. 
Your screen will be filled with a variety of black and white images, 
some flashing. To rid your screen of this unattractive mess, type 
HOME. In future programming efforts, use the statement TEXT: 
HOME to enter text mode and clear the screen. To clear the screen 
and remain in LO-RES mode, use GR:HOME. 

See what happens when you vary some of the parameters in 
COLOR DOTS. 
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1. How can you change COLOR DOTS to make pink "snow" cover 
the ground? 



2. How can you alter COLOR DOTS to have yellow "stars" slowly 
appear above a horizon that is halfway up the screen? 



3. How would you fill a ten by ten dot rectangle in the center of the 
screen with purple dots? 



1. Modify COLOR DOTS: 500 COLOR = 11 

2. Modify COLOR DOTS: 

10 HEM . . . YELLOW ST&BS-COIOB DOTS. . . 
1 1 : 

400 V = INT (Z0 * RND ( 1 ) ) 
5 0 0 COLOR= 13 
700 F = 1000 



3 . Set the color to purple. Set the H and V coordinates so that both 
vary from 15 to 24. 



10 REM ...PURPLE RECTANGLE -COL OR DOTS.. 
11 

3 0 0 H = INT (10 * RND ( 1) ) + 15 

4 0 0 V = INT (10 s RND \1>) 4- 15 
500 COLOR= 3 
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You might use a variation of the dot routine in your own programs. 
Would you ever need to represent the eyes of jungle animals appear- 
ing in the night forest? You could have dark green and yellow dots 
appearing on a black screen. How about looking down at coins 
dropping into a wishing well? You could make yellow dots appear 
within a circular area in the center of the screen. In both cases, you 
could use a FOR-NEXT loop to control the number of dots that 
appear. Here is the complete listing of WISHING WELL: 



1 0 REM . . . WISHING WELL. . . 
I I : 

J 00 GR . HOME 

120 BA = 15: REM RADIUS OF WELL 
130 R2 = BA * BA: REM BAD1VS SQUARED 
140 HO = 19. REM H-FOS OF CENTER 
150 V0 = IS. REM V-FOS 
200 PB1NT 

210 FB1NT " FRESS ANY KEY TO STOF . . . " < 

300 REM ElBST SELECT H,V IN A SQUARE CEHTEBED AT 

(H0,V0) WITH SIDE = Z*BA 
31 0 H = INT ( 2 a BA * RND ( 1 )) * HO - BA 
40 0 V = INT (2 * BA * RND (1)) + V 0 - BA 
410 REM SECOND CHECK IF (H f V) IS WITHIN THE CIRCLE 
420 IF (H - HO) A2*(V-V0)A2)R2 THEN 310: 

REM SELECT A NEW F01NT IF IN SQUARE BUT NOT CIRCLE 
500 COLOR= 13 
S00 FLOT H, V 
700 P = 1 

710 FOR 2 = J TO P: NEXT ; REM FJWSE 

800 IF FEEK ( - 16384) < 12S THEN 300: REM NO KEYSTROKE 
810 GET Zfi : REM THROW AWAY KEYSTBOKE 



These are just a few of the possibilities you can program using this 
basic dot routine. 

Another way you can alter this program is to use a random, rather 
than fixed, time delay for the value of P in line 700. Select a range for 
the delay, and then use the formula we gave you earlier (page 000). 
1. If you want to print only dots of medium blue and orange, how 
would you change the routine? (Refer to the color table on page 00.) 
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2. Suppose you still want medium blue and orange dots, but you 
want blue to be three times as likely to appear. How would you 
change the routine? 



I . 500 COLOR = 6 

510 IF RND(1)<.5 THEN COLOR = 9 
(The .5 gives each color a 50-50 chance. ) 

2. 500 COLOR = 6 

510 IF RND(1)<.25 THEN COLOR = 9 

(One chance in four is controlled by the .25. ) 

Here is a program that uses the dot routine to "grow" wildflowers 
in a bare field. We have chosen three flower colors (red, yellow, and 
purple) and assigned them at 20% each. Then, we assigned dark 
green at 40%. 

Modify original COLOR DOTS: 

10 BEM ...FLOWERS-COLOR DOTS... 

II : 

400 V = J NT (30 e RND (J)) * JO 

5 0 0 Z = INT (J 00 » RND (1)) + 1: BEE 1/10 0 

510 COLOR= (Z < = 20) ft J (Z > 20 AND Z 

< =40)ftJ3*(Z>40 AND Z< = 60) * 3 * (Z > 60) * 4 

Type this program and SAVE it as FLOWERS. Then RUN this pro- 
gram and watch the flowers cover the field. To assure that they don't 
also cover the sky, we limited the V coordinate so that the dots do not 
appear above V=10 (see line 400 above). 
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COLORED LINES 

The only difference between plotting points and drawing lines is 
that points need only two coordinates whereas lines must have both 
endpoints specified. Because we are drawing only horizontal or 
vertical lines, the endpoint specification is simple. 

Use HLIN and specify the starting and ending columns and the 
vertical distance from the top of the screen (the row). HLIN 10,20 at 5 
draws a horizontal line from the tenth to the twentieth column, five 
rows down. VLIN 10,20 at 5 draws a vertical line from the tenth row 
to the twentieth row, in the fifth column from the left. 

The following program creates lines instead of dots, and it builds 
on what you learned earlier. The program selects the endpoints 
(determining whether the line will be horizontal or vertical and how 
long it will be), the color of the lines, and the time delay between 
drawing lines. 

Modify the original COLOR DOTS: 

10 REM . ..COLOE LINES-COLOE DOTS... 

11 : 

3 0 0 HI = I NT (40 * END ( D ) 

35 0 H2 = INT (40 * END f 1) ) 

40 0 VI = INT (40 * END CD) 

450 VI = INT (40 ft END ( D ) 

800 D = INT (2 * END (J)): EEM D =0 (HLIN) , =1 (VLIN) 

650 IF D = 0 THEN HLIN HI ,H2 AT VI 

660 I F D = 1 THEN VLIN VI, V2 AT HI 



SAVE it as COLOR LINES. Try this program exactly as it appears. 
Then vary some of the parameters. How about limiting the colors 
(line 500)? 
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How would you change the program to limit the possible lengths of 
the lines? 



Modify COLOR LINES as follows: 



ID REM ...LINE LENGTHS- COL OH LINES... 
1 1 

120 HL = 20: REM MAXIMUM HL IN LENGTH 

J30 VL = JO: REM VLIN 

360 IF- ABS (H2 - HI) > HL THEN 350: REM PICK AGAIN - TOO LONG 

46 0 IF ABS ( V2 - VI) > VL THEN 4 50: REM PICK AGAIN - TOO LONG 



SAVE this program as LINE LENGTHS. 

Do you think you would ever need to fill the screen with short, 
vertical lines? (They might represent people appearing out of no- 
where.) You can eliminate horizontal lines from the routine by 
making this change to line 600: 

600 D = 1 

Another way to make this program interesting (and the earlier one, 
too) is to make it interactive. Currently, the values for all variables 
are created by the program. You can alter the program so that it 
accepts values from the keyboard. Make the following changes to 
LINE LENGTHS: 
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JO REM ...INPUT COLORS -LINE LENGTHS... 
11 : 

150 C L = 1 : REM INITIAL COLOR 

210 PRINT " PRESS ESC TO STOP 

500 1% = " ASDFGH JKLZX C VBNM " 

5 10 GOSUB J 0 0 0 : REM CHECK KEYSTROKE 

5 20 IF 2 THEN CL = Z - 1 : REM UPDATE COLOR IF KEYSTROKE MATCHED 
530 COLOR= CL 

BOO 1% = CHBI (27). REM CHECK FOB ESC 

BJ0 GOSUB J000 

82 0 IF Z = 0 THEN 3 00 

9 0 0 END 

5 9 J 

992 REN * CHECK IF KE YSTBOKE IS IN SET * 

993 BEN ENTBY : 1% STB ING OF KEYS TO NATCH 

994 BEN EXIT: Z 0 (NO NATCH) AND KEYSTBOKE (IF ANY ) NOT CLEARED 

995 BEN Z J (J-TH CHARACTER IN ZD AND KEYSTBOKE CLEARED 

6 9 9 : 

J 0 00 Z = 0; BEN SET NO-NATCH FLAG 

J 0 J 0 11 = PEEK ( - J 6 3 8 4) - 128: BEN BEAD KEYSTBOKE 

10 20 IF 11 < 0 THEN BETUBN ; BEN NO KEY PRESSED 

1030 IF LEN (21) = 0 THEN BETUBN : BEN NO CHABACTEBS TO NATCH 
J 0 40 FOB 22 = J TO LEN (ZD 

1 050 IF 11 = ASC ( NIDI ( Z i , Z 2 f I ) ) THEN Z = Z2: GET 11$: 

MEM MATCH FOUND - CLEAB KEYSTBOKE 
1060 NEXT 
1070 BETUBN 



SAVE this program as INPUT COLORS. RUN the program and watch 
the lines appear. They are all red. Now, as the program runs, type 
alphabet keys in the two bottom rows. (A through L or Z through M.) 
As you type, the colors will change. We have assigned one of the 
APPLE colors to each of the keys (see line 500). The assignment was 
aiuitrary; we could have used an assignment scheme other than the 
rainbow one we chose. 

Now, using this idea of changing where the routine gets the values 
for the variable, we can make the following change and have the 
number keys (1 through 9) provide the length of the horizontal line, 
and the keys Q through O provide the length of the vertical line. The 
keys to the left will generate short lines; those to the right, long lines. 

Modify INPUT COLORS: 



10 BEN . . . INPUT LENGTHS-INPUT COLOBS . . . 

11 : 

310 1% = "12 3456789" 
320 GOSUB J000 

33 0 IF Z THEN HL = 2 * Z : BEN UPDATE HLIN LENCTH IF KEYSTBOKE 

340 Z = 1 - 2 * INT (2 * RND ( 1 ) ) : BEN - 1 

3 5 0 H2 = HI * 1 * HL; BEN 4- OB - HL 

3S0 IF H2 < 0 OR HZ > 3 9 THEN H2 = HI - Z * HL : 

BEN - OB + IF OUT OF BANGE 
4J0 Zl = "QWEBTYUI 0" 
420 GOSUB J000 

430 IF Z THEN VL = 2 * Z. BEN UPDATE VLIN LENGTH IF KEYSTROKE 

440 Z = I - 2 fi INT (2 ® RND (1)). BEN +1, -1 

450 V2 = VI + Z * VL: BEN + OR - VL 

4S0 IF V2 < 0 OB V2 > 39 THEN V2 = VI - Z * VL . 

BEN - OR + If OUT OF RANGE 
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SAVE this program as INPUT LENGTHS. RUN this program. You 
will probably find it enjoyable to interact with the program and to 
have immediate control over what is displayed on the screen. Re- 
member, when you are designing programs, that interacting with the 
program is fun for the players. 

You may have noticed when you were plotting color dots in 
LO-RES that the dots are not perfectly square — they are wider hori- 
zontally than they are high vertically. This is due to the structure of 
the LO-RES hardware. Similarly, vertical lines are "fatter and shor- 
ter" than horizontal lines drawn with the same values for length. 

By now you probably realize that you can vary parameters within 
the routine to make other interesting effects: You can limit the colors 
and you can assign the horizontal and vertical lengths to the keys in 
different ways. 

Boxes are one step beyond lines. You draw a line and then indicate 
which way and how far to "grow" it. The last program in this section 
prints colored boxes. Modify INPUT LENGTHS as follows: 

JO REM . . INPUT BOXES-JNPUT LENGTHS . . 

J J . 

6 5 0 J F D = 0 THEN FOB Z = VI TO V2 ST£? SGN (V2 

HZ AT Z. NEXT 
660 IF D = 1 THEN FOB Z = HI TO HI STEP SGN (H2 

VZ AT Z • NEXT 

SAVE it as INPUT BOXES. RUN it. Use keys 1 through 9 to vary the 
width, keys Q through O to vary the height, and A through M to vary 
the colors. You will see a direct relationship between what you do 
with the keys and what happens on the screen. 



COLORING THE SCREEN 

This section presents several other ways to color the screen. First, 
we will provide a routine to display a simple colored border, useful 
for calling attention to what's on the screen. This routine displays a 
colored border one line wide around the screen. Notice that the color 
is set in line 500. 



- VI) . HUN HI , 

- HI J : VI IN VI , 
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SAVE this program as BORDERl. RUN it. 

You can change BORDERl to make it display borders of different 
colors that follow one after another. Here's how we did it: 



JO BEM . . . BOBDEE . . . 
1 1 : 

100 Gf? . HONE 

500 C0L0fl= 1 

BOO HI IN 0,39 AT 0 

610 VLIN 1,3 9 AT 39 

6 2 0 HL IN 3 8,0 AT 3 9 

6 3 0 VLIN 38,1 AT 0 



Make BORDERl a general-purpose program by deleting lines 600 
through 630. 



10 HEN . . . BOBDEB2-BOBDEB1 . . . 

11 : 

600 2=0: HEN 0 DOTS FROM THE EDGE 

610 GOSUB 900 

B 2 0 END 

891 ; 

S92 HEN * LOW-BES BOBDEB * 

893 HEN ENTHY: 2 # OF DOTS IN FHON THE EDGE 

894 HEN COLOB SET 

8 9 9 

900 Zl = 39 - 1 

910 HL IN 2 < Zl hT 2 

920 VLIN Z + 1,21 AT 11 

9 3 0 HLIN Z 1 - 1,2 AT Z 1 
940 VLIN Zl - 1,1 1 AT Z 
950 HETUHN 



SAVE this program as BORDER2. 

1 . How would you modify BORDER2 to set the border three dots in 
from the screen sides? 



2. How would you modify BORDER2 to make a double border with 
a space between the parts? 



LOW-RESOLUTION GRAPHICS 31 



1. 
2. 



600 Z = 3 

One answer is: 620 Z = 2. 

630 GOSUB 900 



It's extremely useful to be able to wash the screen (fill it quickly 
and smoothly with a color). The following routine fills the screen by 
printing horizontal lines. 



10 REM . . .wash. . . 

J] : 

10 0 GR : HONE 

500 COLOBs 1 

BOO FOB Z = 0 TO 3 9 

B10 HUN 0,39 AT 2 

B2 0 NE1T 



SAVE this program as WASH and RUN it. 

How would you change the program to print stripes of alternating 



10 BEM . . .STRIPE -WASH. . . 

11 : 

500 CI = 3: REM F J EST COLOR 
5 1 0 C2 = 7 : REM SECOND 
520 C = CI: BEM CUBBENT 

6 0 5 COLOB= C.C = CI C2 - C. BEM CHANGE TO OTHER COLOR 



The WASH routine provides a background color over which you 
can make other lines, dots, and even images, as you will see in the 
next chapter. You can easily change the background color in the 
WASH program by changing line 500. 

Another way to color the screen is to print stripes around the 
screen in a spiral effect: 



colors? 



Modify WASH as follows: 
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10 FEM . . .SPIRAL. . . 

1 1 : 

100 GR : HOME 

120 HO = 19; REM H-FOS OF CENTER 
13 0 V0 = 19 : REM V-POS 

140 N = 19 . REM # OF LAYERS IN SPIRAL 
15 0 P = 1: REM PAUSE BETWEEN SEGMENTS 
200 FOR J = N TO 0 STEP - 1 

210 HI = HO - J: REM LEFT EDGE OF CURRENT LAYER 
220 HZ = HO + J + J; REM RIGHT 

23 0 VI = V 0 - J : REM TOP 

24 0 V2 = V0 + J 1. REM BOTTOM 
300 GOSUB 900 

310 HL IN HI ,H2 AT VI 

350 GOSUB 900 

3 6 0 VLIN VI 4- 1 ,V2 AT H2 

400 GOSUB 900 

410 HLIN H2 - 1 ,H1 AT V2 

450 GOSUB 900 

4S0 VLIN V2 - 1 , VI 1 AT HJ 
490 NEXT 
820 END 

89 2 : 

893 REM * SELECT COLOR FOR NEXT SEGMENT t THEN DELAY * 
8 9 9 

900 COLOR= 1 

910 FOR Z s 1 TO P: NE1T 
990 RETURN 



SAVE this program as SPIRAL. 

You may want to slow the printing so you can see the spiral more 
clearly. Do this by changing the delay in line 150: 

150 P = 200 

How would you change SPIRAL so it prints different colors on each 
bar of the spiral? 



900 COLOR = INT ( 16*RND ( 1 ) ) 

SAVE this change as SPIRALl. 

Here is a modification to SPIRALl to have the spiral continue to 
close, then open: 
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JO REM . . . SPJBAL2-SPJRALJ . . . 
11 : 

ISO PRINT : PRINT "PRESS ESC TO STOP . 

500 COLOR= 0: FOB J = 0 TO N 

5 JO HI = HO - J 

520 H2=H0*J+J 

530 VI = V0 - J 

540 V2 = VD + J + ] 

600 GOSUB 910 

6 JO VLJN VJ * J ( V2 - J AT HJ 
650 GOSUB 910 

6 6 0 HLJN HJ ,H2 - 1 AT V 2 
700 GOSUB 910 

71 0 VLJN V2 f VJ + i AT H2 
75 0 GOSUB 910 

7 6 0 KLIN H2,HJ AT VJ 
750 NEXT 

300 IF PEEK ( - 16 384) < 123 THEN 2DD 

8 JO GET ZS : IF Z$ \ ) CHRS (27) THEN 2 0 0 REM NOT ESC 



SAVE this as SPIRAL2. RUN it to see how it looks. 

Modify SPIRAL2 to move the center and reduce the size of the 
spiral: 



iD REM SPJRAL3-SPIRAL2 

j J . 

120 HO = JO 

13 0 V 0 = J 2 

14 0 N = 4 



SAVE this as SPIRALS. 

Try two spirals. Have them close and open at the same time. 
Although the following solution is tedious, it does produce a fine 
effect: 



10 REM ...TWO SP J RALS-SP J BAL 3 . . 

11 : 

122 HC =.- 29. REM .INTERLEAVE SPIRAL #2 

J 3 2 VC = V0 

21 2 HA = HC - J 

222 HB = HC + J + 1 

2 32 VA = VC - J 
242 VB = VC + J + 1 

31 2 HLJN HA t HB AT VA 

3 6 2 VLJN VA + J f VB AT HB 
412 HI IN HB - 1 ,HA AT VB 

462 VLJN VB - J , VA + J AT HA 

51 2 HA = HC - J 

522 HB = HC + J + 1 

532 VA = VC - J 

542 VB = VC ■¥ J + J 

6 J 2 VLJN VA + J ( VB - J AT HA 

6 6 2 HLJN HA , HB - J AT VB 

71 2 VLJN VB, VA + J AT HB 

762 HLJN HB , HA AT VA 



SAVE this as TWO SPIRALS. With a little imagination, you can see 
this as two eyes. Would you ever need a three-eyed monster to 
enhance a program? 
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COMBINING COLOR AND SOUND 

Now let's combine sound with one of the screen coloring routines. 
Here's a program that makes ascending and descending scale sounds 
as a spiral closes and opens. 
Modify SPIRAL2 as follows: 

JO REM ...SPIRAL BOUND-BP JBkLZ . . . 
11 : 

180 WD = 10 

9 20 WP S N ^ J - J 
B 3 0 GOSUB 1 3 0 0 0 

Merge with SOUND MODULE. SAVE this as SPIRAL SOUND and 
RUN it. , 

With an additional change, you can have a program that drives 
your friends wild. The sound is slightly offset from the spiral, so 
they don't start and finish at the same time. 

10 REM ...SPIRAL CBhlY SOUND... 

1 1 : 

170 CP = 1 . CZ = .25 
920 WP = INT (CP) 
940 CP = CP * CZ 

B50 IF CP ) N ■> 2.25 THEN CZ = .25: GOTO 9 4 0 : REM UP TO DOWN 

SSO IF CP < 1 THEN CZ = .25: GOTO 940: REM DOWN TO UP 

Experiment on your own with adding LO-RES effects correspond- 
ing to the note change in the ORGAN program. How about display- 
ing a colored dot each time you press a note (A through Z)? How 
about special color effects each time you press one of the number 
keys? (This is a little like using the pedals in a real organ.) For 
example, pressing the 1 key could signal to wash the screen withred; 
the 2 key could signal an orange wash, etc. How about triggering a 
spiral if a random key is pressed? 

Onthe other hand, a simpler program wouldhave the 1 key change 
the screen to another color that was selected at random. 

As you can see, you can combine color with sound in a variety of 
ways to make them both more interesting. 
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FULL-SCREEN LORES GRAPHICS 

Each of our programs has used a four-line text window at the bottom 
of the screen. To eliminate the text window and gain eight addition- 
al graphic lines, use these two statements in your programs: 

10 HEM . . . PULL LOVHES . 

11 : 

10 0 Gfl POKE - 1 6 3 0 2,0. HEM SET PULL -SCREEN LO'WBES 

110 COLOfl= D; FOR Z = 40 TO 47. HL IN 0,39 AT 2. NEXT 

HEM CLEAR BOTTOM S LINES 

CHAPTER SUMMARY 



This chapter introduced the LO-RES graphics statements and 
showed some simple applications. The WASH, BORDER, AND 
SPIRAL programs will be particularly useful when you write your 
own programs. 



CHAPTER THREE 

Graphic Images in LOEES 



This chapter deals specifically with making images — pictures and 
symbols — using low-resolution graphics. You can create an image 
and then save it to use in future programs. We will present some 
images and show you how to use them. Then we will show you how 
to create, change, and store your own unique images. Finally, we 
will include programs that incorporate and manipulate images. 

The building block of the image is the dot introduced in the 
previous chapter. Because low-resolution images are made of these 
rectangular dots, they have the quality of children's drawings or of 
pictures drawn in cross-stitch. Children especially find LO-RES 
images very appealing. 



IMAGE MODULE 



The following IMAGE MODULE allows you to display images on the 
screen. You specify the position, the color, and the image; the mod- 
ule does the work. For your ease in getting started, we have included 
an alphabet and the numerals 0 to 9. Later in the chapter, we will 
show you how to create, save, and display additional images. 

As you can see from the listing below, spacing is crucial to the 
appearance of the letters. Be very careful when you type the image 
portion of this routine, or your characters will be misshapen. 



37 
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10 REM . . . IMAGE MODULE -NEXTDATA MODULE. . . 

11 : 

11 REM IMAGE SUBROUTINES ■> IMAGE 1 1 BE AMY 
13 ; 
14981 : 
13982 : 

14983 HEM • BIBPLAY IMAGE IN L QW-BBB * 

14984 HEM ENTRY: XH H-POS OF UPPER- LEFT-HAND -CORNER 

14985 REM XV V-POS 

14B8S REM XA HORIZONTAL WIDTH 

14987 REM XB VERTICAL HE I GMT 

14S88 REM READ DATA PQINTEB SET TO IMAGE 

l^BBB REM COLORS BELEC7ED IN ICO 

l^BBQ REM GRAPHICS MODE SELECTED 

l^BBl REM EXIT: Z% 0 IMAGE FITS 

1 49 9 2 REM 1 EBEOB - DOES NOT FIT 

1499 9 : 

1 5 000 IF XH 4- IA > 40 OR XV ♦ XI > #8 THEN Z% = 1: RETURN : 

REM EBBOB - DOES NOT F IT 
15010 21 = XV: REM FIRST V-PDS 
15020 REM INITIALIZATION UNNECESSARY - 

FIRST MEFEBENCE TO ICO CAUSES "DIM XC(10)" 

15030 READ 2%: IF 2% = " - 1 " THEN Z% * 0: BETVBN : REM CHECK IF DONE 

15 0§0 FOR I s J TO LEN (ZD: REM PLOT EACH 1/9 CHARACTER 

15i50 Z% = ASC ( MIDI (Z$,Z,D) - 48 

150S0 IF Z% > s 1 AND Ztt < * 9 THEN COLOR= XC(Z%): 

PLOT XH * Z - 1,21: REM PLOT DOT 

15070 NEXT 

15080 21 =21 * 1: REM NEXT V-POS 

15090 GOTO 15030 

15 0S2 : 

15093 REM * GET IMAGE * 

150B4 REM ENTRY: 2 IMAGE § 

150S5 REM EXIT: XA HORIZONTAL WIDTH 

1509S REM IB VERTICAL HEIGHT 

15097 REM READ DATA POINTER SET TO IMAGE 

1509S : 

15100 Z = 20000 * 100 & Z: GOSUB 1 9 00 0: REM SET READ DATA POimEB 

15110 READ XA < IB : REM FIRST TWO DATA ARE WIDTH AND HEIGHT 

15120 RETURN 

151B1 : 

15192 REM * DISPLAY ONE IMAGE » 

15193 REM ENTRY: Z IMAGE # 
151J4 REM XH H-POS OF ULHC 
15195 REM XV V-POS 

151SS REM COLORS BELECTEB IN ICO 

151*7 REM EXIT: 2% 0 IMAGE FITS 

15198 REM 1 ERROR - DOES NOT FIT 

1 5 1 S 9 : 

15200 GOSUB 15100. REM SET READ DATA POINTER 

15210 GOTO 15000: REM DISPLAY IMAGE 

15 292 : 

15 293 "REM * CENTER STRING OF IMAGES * 

15294 REM ENTRY: XI STRING 

15295 REM XV V-POS OF ULHC 

1 5 29B REM COLORS SELECTED JN XC() 

152S7 REM EXIT: Z% 0 IMAGES FIT 

15298 REM 1 ERROR - DO NOT FIT 

15 2 99 : 

15 300 IF LEN (XI) s 0 THEN RETURN : REM EMPTY 

15310 IF XS s 0 THEN XS ^ 1 : REM miTIALI2E SPACE BETWEEN IMAGES 

15320 XI s - XS: REM INITIALIZE LOW-RES WIDTH 

15330 FOR X = 1 TO LEN (XS) 

15340 Z = ASC ( MIDI (Xi,X,D): GOSUB 15100: 

REM IMAGE IS IDENTICAL TO ASCII IS 

15350 XI a XI * XA * XS: REM UPDATE LOW-RES WIDTH 

153S0 NEXT 

15370 IF XI > 40 ♦ XS THEN Z% = 1 : RETURN : REM ERROR - DOES NOT FIT 

1538P XH s 19 - INT (XI / 2): REM DISPLAY AT LEFT MARGIN 

15 390 : 

1 5 391 REM *' DISPLAY STRING OF IMAGES * 

15 392 REM ENTRY: XI STRING 
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1 5 3 9 3 


BEM 


15 3 9 4 


BEM 


15395 


BEH 


1 5 3 9 B 


MEM 


15397 


BEH 


1 5398 


BEH 


15 399 




15400 


IF 


15410 


IF J 


15420 


FOB 


15430 


Z = 


15 44 0 


XH = 



XH H-POS OF ULMC 
XV V-POS 

COLOBS BELECTED JM ICO 
EXIT: XH UPDATED 

2 s * 0 IMAGES FIT 

1 EBBOl - DO MOT FIT 



XH 
HEXT 
BETUBH 



LEN (X$) = 0 THEN 
S = 0 THEN XS = 1 : 
I a 1 TO LEN (X$) 
ISC < MID* (X$,X,J)) 



BETUBM : HEM EMPTY 

HEM INITIALIZE SPACE BETWEEN IMAGES 



GOSUI 152 0 0; REM DISPLAY ONE IMAGE 



+ XA + IS; BEM UPDATE H-POS 



BEM & WASH 40140 SCREEN JN ONE COLOB « 
BEM ENTBY: COLOB SET 



15500 


Z = 3 9: 


HEM HEIGHT 


15510 


FOB Zl 


s 0 TO Z 


■ Hi 


15520 


BETUBN 






24800 


DATA 


5,7; BEM 


0 


24810 


DATA 


" 111" 




24820 


DATA 


"J 1 " 




24830 


DATA 


" 1 11" 




24840 


DATA 


"J 1 1 " 




24850 


DATA 


"11 1 " 




248i0 


DATA 


"1 1" 




24870 


DATA 


" 111" 




24880 


DATA 


"-J" 




24900 


DATA 


5,7; BEM 


J 


24910 


DATA 


. j .. 




2 4 §2 0 


DATA 


" 11" 




24930 


DATA 


" 1 " 




24940 


DATA 


„ j .. 




24950 


DATA 


1 M 




249i0 


DATA 


" 1" 




24970 


DATA 


" 111" 




24 980 


DATA 


••-1" 




25000 


DATA 


5,7; BEM 


2 


25010 


DATA 


' 111" 




25020 


DATA 


•1 J" 




25030 


DATA 


1 " 




25040 


DATA 


' 11" 




25 050 


DATA 






250i0 


DATA 


' 1 " 




25970 


DATA 


'11111" 




25080 


DATA 


■-J" 




25100 


DATA 


5,7; BEM 


3 


25110 


DATA 


'11 111" 




25120 


DATA 


1 " 




25130 


DATA 


1 " 




2 5 1C0 


DATA 


1 11" 




25150 


DATA 


1 " 




25JB0 


DATA 


'1 1 " 




25170 


DATA 


' 111" 




25180 


DATA 


'-1 " 




2520 0 


DATA . 


5,7: BEM 


4 


23210 


DATA 


1 " 




25220 


DATA 


' 11" 




25 230 


DATA 


•11" 




25240 


DATA 


•1 1 " 




25 250 


DATA 


'11111" 




2 5 2 S0 


DATA • 


1 " 




25 270 


DATA 


1 " 




25280 


DATA ' 






25 300 


DATA . 


5,7: BEM 


5 


25310 


DATA « 


' 1 1 1 1 1 " 




25320 


DATA ' 


'!" 




25 330 


DATA ' 


•1111" 




253«0 


DATA 1 


1" 




25350 


DATA ! 


1" 




253B0 


DATA ' 


'1 1" 





NEXT 
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25370 


DATA 


2 5 3 a 0 


DATA 


25400 


DATA 


2 541 0 


DATA 


25420 


DATA 


25 430 


DATA 


25440 


DATA 


25450 


DATA 


254B0 


DATA 


2 54 7 0 


DATA 


254B0 


DATA 


25500 


BAT A 


25510 


DATA 


2 5520 


DATA 


25530 


DATA 


25 540 


DATA 


25550 


DATA 


25 5 B0 


DATA 


25570 


DATA 


2 5580 


DATA 


25800 


DATA 


25B10 


DATA 


25B20 


DATA 


25 B30 


DATA 


25B40 


DATA 


25B50 


DATA 


25BB0 


DATA 


25S70 


DATA 


25B80 


DATA 


2 5700 


DATA 


2571 0 


DATA 


25720 


DhTh 


25730 


DATA 


25 740 


DATA 


25750 


DATA 


25 7B0 


DATA 


25770 


DATA 


25780 


DATA 


2B500 


DATA 


28 510 


DATA 


2S520 


DATA 


2S530 


DATA 


2 B540 


DATA 


2155 0 


DATA 


2S5B0 


DATA 


28 570 


DATA 


2S580 


DATA 


2SS00 


DATA 


2 S B J 0 


DATA 


2S B20 


DATA 


2SS 30 


DATA 


28 840 


DATA 


28 B50 


DATA 


28 8B0 


DATA 


28B70 


DATA 


2 8B80 


DATA 


28700 


DATA 


28 71 0 


DATA 


2B720 


DATA 


2 8 73 0 


DATA 


26740 


DATA 


28730 


DATA 


287B0 


DATA 


o r R R n 

28 770 


DATA 


28780 


DATA 


28 80 0 


DATA 


2 8810 


DATA 


28 82 0 


DATA 


2B830 


DATA 


28 840 


DATA 


28850 


DATA 


28 8B0 


DATA 


2SP70 


DATA 



" 111" 

5,7: MM B 
" 111" 
" 1" 

1 

"Jill" 
" 1 1" 
"1 1" 
.. j j j » 

» - 1 » 

5,7. J? EM 7 
"11111" 
1 " 
1" 
„ j„ 

.. j it 
" 1 " 
1 

" - J " 

5,7: REM 8 
» 111" 
n l 1" 
"1 1 " 
" 111" 
"1 1" 
"1 1" 
" 111" 
" - J " 

5,7: J? EM S 
" 111" 
"1 1" 
"1 1" 
" 1111" 
1 " 
J" 
"111" 
" - 1 " 



5,7: J?EM 


h 


M j „ 




"11" 




"1 1 " 




"1 1 " 




"11111" 




"1 1" 




"1 1 " 




" - 1 11 




5,7: J? EM 


E 


"1111" 




"1 1" 




"1 1 " 




"1111" 




"1 1" 




"1 1 " 




"1111" 




"-1 " 




5,7: HEH 


c 


" 1 11 " 




"1 1" 




"1" 




"1" 




" 1 " 




"1 1 " 




" 111" 




" 




5,7; BEM 


D 


"1111 " 




"1 1 " 




"1 1 " 




"1 1 " 




n 1 1" 




"1 1" 




"Jill" 





GRAPHIC IMAGES IN LO-RES 41 



2 6 8 8 0 


DATA 


" - 1 " 


Z 6 S 0 0 


DATA 


5,7: PEW 


2 6 9 i 0 


DATA 


" 1 11 1 1 " 


2 § 9 2 Q 

ft? c/ t/ 


DATA 


•i j ii 


? S 9 3 0 

a y y w y 


DATA 


" 1 " 


2 S S 4 0 


DATA 


" 1 1 1 1 " 


26 1 5 0 


DATA 


" 1 " 


2 § 9 g 0 


D.AT.A 


" 1 " 


2S 970 


DATA 


" J 1 1 1 1 " 


28980 


DATA 


1 " 


27000 


DATA 


5,7; BEH 


270 J 0 


DATA 


"11111" 


27020 


DATA 


" 1 " 


27030 


DATA 


" J " 


27040 


DATA 


68 J J J J 68 


27050 


DATA 


H 1 H 


27 0g 0 


DATA 


"J " 


27070 


DATA 


.1 J .. 


1 1 n 8 n 


DATA 


■I _ j ii 


7 "7 i ft ft 


Uft 1 ft 


5,7: J? EH 


7*? 1 1 ft 
£ / i J U 


T"» AT A 

Uft J ft 


" 1 1 1 1 " 


27 J 2 0 


DAT A 


" 1 " 


27 J 3 0 


DATA 


II J IS 


7 "7 1 A ft 


DATA 


" J " 


7 "7 1 •? ft 


DATA 


" J J J " 


? "7 i e ft 
L J 1 0 U 


DATA 


"J 1 " 


7 "7 1 "7 ft 


Uft 1 ft 


" 1 1 1 1 " 


7 "7 1 @ ft 


DATA 


" - 1 " 


7 "7 7 ft ft 


Uft 1 ft 


5 t 7 : HEM 


7 1 7 1 ft 


Uft i ft 


"J 1" 


27220 


DATA 


ii i i ii 


7 "7 7 3 ft 
L J L 3 u 


DATA 
Uft 1 ft 


M 1 1 " 


11 7 A f\ 


DATA 


"11111" 


2 7 2 5 0 


DATA 


" 1 1 " 


7 1 7 a n 


n AT A 
uft J ft 


"J J " 


7 "7 7 "7 ft 


n AT A 
Uft 1 ft 


HI 1 II 

i i 


2 7 2 8 0 


n &t a 

Uft i ft 


■I i H 
- j 


7 "7 3 ft ft 


n at a 

Uft 1 ft 


d , j . ri s,n 


27 3 i 0 


DATA 


"111" 


27 3 20 


D.AT.A 




27 33 0 


n at a 

Uft i ft 


II 1 II 


2 7 3 4 0 


DATA 


H i .. 


27 35 0 


DATA 




2 7 3 g 0 


D.AT.A 




27 3 7 0 


DATA 


" J 1 1 M 


2 7 3 8 0 


D.AT.A 




2 7 4 0 0 


DATA 




2 7 4 i 0 


DATA 


ii 111" 
J J J 


27 4 2 0 


DATA 




2 7 4 3 0 


DATA 


if ] ., 


27440 


DATA 


•i j .. 


27450 


DATA 


M 1 II 


27 48 0 


DATA 


" 1 1 " 


27470 


DATA 


" 111" 


27480 


DATA 


" - 1 " 


27500 


D.AT.A 


5,7; HEM 


27 5 1 0 


DATA 


" 1 1" 


2 7 5 2 0 


DATA 


" 1 1 " 


27 5 3 0 


DATA 


" 1 1" 


2 7 5 4 0 


DATh 


"11" 


27 55 0 


DATA 


" 1 1" 


27580 


DATA 


" 1 1 " 


27 57 0 


DATA 


" 1 1" 


27580 


DATA 


" - 1 " 


27800 


DATA 


4,7. HEM 


278J0 


D.AT.A 


" 1 " 


27 820 


DATA 


"J" 


278 3 0 


DATA 


" J " 


27640 


DATA 


"1" 


27S50 


DATA 


"J" 


27 88 0 


DATA 


"J" 


27870 


DATA 


"JJJJ" 


27880 


DATA 


"-J" 
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27700 


DATA 


7,7: 


HEM 


277 JO 


DATA 


.. j 


1 


2 7 72 0 


DATA 


"11 


1 1 


27730 


DATA 


"1 1 


1 1 


27740 


DATA 


"1 1 


1 


27750 


DATA 


"1 


1 


277S0 


DATA 


"1 


1 


27770 


DATA 


"1 


1 


27780 


DATA 


" - J " 




27 800 


DATA 


5,7: 


HEM 


278 J 0 


DATA 


"1 


1" 


27 820 


DATA 


"1 


1" 


27830 


DATA 


"11 


1" 


27 8#0 


DATA 


"1 1 


1 " 


27850 


DATA 


"1 11" 


27 8S0 


DATA 


ii i 


1 " 


27870 


DATA 


" 1 


1 " 


27 8 80 


DATA 


"-]" 




27S00 


DATA 


5,7: 


REM 


27SJ 0 


DATA 


" 111 




27S20 


DATA 


U j 


1 " 


27 §30 


DATA 


II J 


1 " 


27S40 


DATA 


II J 


J " 


27 S50 


DATA 


II J 


1 " 


27S80 


DATA 


II J 


1 " 


27 97 0 


DATA 


" 111 




2 7 9 8 0 


DATA 


" - 1 " 




7 8 0 0 0 

£j Q U U U 


DATA 


5,7: 


REM 


2 8 0 1 0 


DATA 


"1 111 




28 0 2 0 


DATA 


i 


■I 

1 


2 8 0 3 0 


DATA 


" 1 


1 19 


28 040 


DATA 


i 1 1 1 




28 050 


DATA 


i 




28 0 6 0 


DATA 


■I ■) n 
i 




2 8 0 7 0 


DATA 


" 1 " 




28 0 S 0 


DATA 


II I ts 

— i 




2 8 J 0 0 


DATA 


5,7: 


REM 


28110 


DATA 


" 111 




2 812 0 


DATA 


"1 


1 " 


2 813 0 


DATA 


"1 


1 " 


2 8 14 0 


DATA 


" 1 


1 " 


28 1 5 0 


DATA 


" 1 1 


1 " 


28 1 6 0 


DATA 


"1 1 




2 817 0 


DATA 


" 11 


1 " 


2 818 0 


DATA 


" — 1 " 




7 ft 2 0 0 


DATA 


5,7. 


REM 


2 8 2 10 


DATA 


"1111 




28 220 


DATA 


"1 


1 " 


2 8 2 3 0 


DATA 


" 1 


.1 " 


28 24 0 


DATA 


"1111 




2 B 2 5 0 


DATA 


"1 1 " 




28 2S 0 


DATA 


" 1 1 




23270 


DATA 


" 1 


I " 


28 28 0 


DATA 


"-J " 




2 8 3 0 0 


DATA 


5,7. 


REM 


28 31 0 


DATA 


" 111 




2 8 3 2 0 


DATA 


,! 1 


1 " 


28 3 3 0 


DATA 


"1 " 




23 34 0 


DATA 


" 111 




28 35 0 


DATA 




i " 


2 8 3 S 0 


DATA 


" 1 


1 " 


28 370 


DATA 


" 111" 


2 S 3 8 0 


DATA 


"- 1 '• 




28 40 0 


DATA 


5,7 


REM 


2 3 4 1 0 


DATA 


"1111 


1 " 


2 8 420 


DATA 


" 1 " 




2 8 4 3 0 


DATA 


" 1 " 




28 44 0 


DATA 


" 1 1 




2 3 4 5 0 


DATA 


1 " 




2 8 4 6 0 


DATA 


" I * 




28470 


DATA 


1 " 




2 8 4 B0 


DATA 


" - 1 " 




2 8 5 0 0 


DATA 


5,7. 


REM 
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28 51 0 


DATA 


"1 1" 


2 8 5 2 0 


DATA 


" 1 1 " 


2 853 D 


DATA 


" j j " 


28540 


DATA 


"1 2 " 


2 8 5 5 0 


DATA 




2 8 5 6 0 


DATA 


"1 1 " 


28 57 0 


DATA 


" ill 1 ' 


2 8 5 8 0 


DATA 


" - 1 " 


28 6 0 0 


BAT A 


5,-7; E EM 


2 8 6 1 0 


DATA 


"1 1" 


2 8 6 2 0 


DATA 


" 1 1 " 


2 8 6 3 0 


DATA 


"1 1 " 


28 6 4 0 


DATA 


"1 1 " 


2 8 6 5 0 


DATA 


"1 J" 


2 8 6 6 0 


DATA 


" 1 1 ? ' 


28 670 


DATA 


1 " 


2 8 6 3 0 


DATA 


" - 1 " 


2 87 0 0 


DATA 


7,7: J?EM 


2 8 71 0 


DATA 


"1 '1 


28720 


DATA 


" 1 1 


2 8 7 3 0 


DATA 


"1 1 


28740 


DATA 


"1 1 1 


2 8 7 5 0 


DATA 


"1111 


28 76 0 


DATA 


"11 11 


28 770 


DATA 


" 1 1 


28 7 80 


DATA 


" - 1 " 


28 80 0 


DATA 


5,7: BEM 


288 1 0 


DATA 


"J 1 » 


288 20 


DATA 


"1 1" 


2 8 8 3 0 


DATA 


" 1 1 " 


26 840 


DATA 


J " 


2 8 8 5 0 


DATA 


" 1 1 " 


2 8 8 6 0 


DATA 


"1 1 " 


2 8 8 7 0 


DATA 


"1 1 " 


7 & 8 & A 

6 y y f y 


DATA 


" - 1 " 


2 8 9 0 0 


DATA 


5 { 7 : BEM 


2 8 91 0 


DATA 


"1 1 " 


2 8 9 7 0 


DATA 


"1 1 " 


7 a 9 3 n 


DATA 




2 8 9 4 0 


DATA 


■I i ii 


2 q q s n 

i P 3 J U 


DATA 


ii i n 
i 


e> 0 S7 0 y 


DATA 


ii i it 


2 8 9 7 0 


DATA 


88 1 II 
1 


7 8 9 8 0 

£» Q c/ Q U 


DATA 


II _ j II 


7 9 0 0 0 

4 3 U U U 


DATA 


6; 7 - BFM 
D t J . rl£.Jl 


2 9 01 0 


DATA 


ii i ii 


7 9 0 2 0 

U & hf 6* I* 


DATA 


" j j i j j " 


2 9 0 3 0 


DATA 




2 9040 


DATA 


I'- 


29050 


DATA 


ii r , 


29 060 


DATA 


„ j,, 


29070 


DATA 


"j" 


29 08 0 


DATA 


"imi" 


29 09 0 


DATA' 


" - 1 " 


6 0 0 0 0 






BO 01 0 


' BEE 


* COPYfllO 


800 20 







HEM <> COPYJUCHT 19 61 BY HOWARD FBANKUN, PALO ALTO, CA « 



Type this routine and SAVE it as IMAGE MODULE. 
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Displaying Letters and Numbers 

You must follow three steps to display a LO-RES image. First, spec- 
ify the image to be displayed. Next, specify where it should be 
printed on the screen. Last, indicate the colors to be used. 

IMAGE MODULE makes it very easy to display letters or numbers 
at different locations on the screen. You simply specify the contents 
of a string (X$), determine the distance from the top of the screen 
(XV), decide whether the string will be centered on the row, and 
choose the color (XC(1)). If you do not want the string centered, you 
must also specify where the string will start. Set XH, the distance 
from the left side of the screen. 

The next section explains how the image gets colored. Remember 
those 1 's you typed in the image DATA statements? We designed the 
letters and numerals so they can only be displayed in a single color. 
However, we did not indicate the color in the module. When you use 
an image, you specify its color by assigning one of the sixteen APPLE 
LO-RES colors to the 1's used in the DATA statements. For example, 
if you want the image to be light green, you would type XC(1) = 12. 
This assigns APPLE color 12 to the 1's which make up that image. If 
you want the image to be pink, you would type XC(1) = 11. Later in 
the chapter, you will see how to design and color images made with 
more than one color. 

Following are some ways you can use IMAGE MODULE to display 
words. Add these statements to IMAGE MODULE and RUN it: 



100 GR : HOME 
110 X$ = "CAT" 
120 XV = 10 
130 XC(1) =3 
140 G0SUB 15300 
999 END 

Notice that the string is printed in green (line 130) and that the tops 
of the letters are in row 10 (line 120). The string "CAT" is centered 
because the IMAGE MODULE subroutine was entered at line 15300. 
Add the following lines and RUN the program again: 
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145 : 

150 XH = 5 
160 XV = 20 
170 XC(1) =8 
180 GOSUB 15400 

The added lines changed some of the variables. Since X$ was not 
changed, the screen displaying CAT was repeated. Try modifying 
this program so that your name is displayed in different colors and 
in different places on the screen. Watch what happens if you posi- 
tion the letters to overlap. 

Be sure to specify all the string positioning information. When we 
entered the module at 15300, the string was centered; when we 
entered the module at 15400, it was not automatically centered. If 
you do not want to center the string, you must be sure to specify the 
starting position, XH (see line 150).dl0GOLDEN DELICIOUS 

1. What will be displayed when you merge IMAGE MODULE with 
the following program and RUN it? 

100 GR : HOME 
110 X$ = "CAT" 
120 XV = 20 
130 XC( 1 ) =3 
140 GOSUB 15300 
150 XC( 1 ) = 13 
160 GOSUB 15300 
999 END 



2. What will happen if we add 145 GR:HOME to the program? 
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1. The word CAT will be displayed in purple. Then the same 
word, in the same position, will be colored yellow. 

2. The screen will clear before the yellow word is displayed. 

A neat addition available as part of IMAGE MODULE is a routine 
to wash the screen with the color of your choice. Add these lines to 
your current program and RUN it again: 

102 COLOR = 5 
104 GOSUB 15500 

On some occasions you might get X$ from the keyboard instead of 
assigning it in the program. For example, you might want to ask for a 
name and then display it in large letters. The letters are large, 
however, and some names might not fit. The IMAGE MODULE 
subroutines check the string length and allow you to avoid truncat- 
ing the name. 

If you enter the routine at 15300 (for centering the display), the 
routine checks the length of the string and displays it only if it will 
all fit on the screen. If it will not fit, the routine displays nothing. If 
you enter the routine at 15400, however, the routine will truncate 
the string to fit on the screen. 

IMAGE MODULE subroutines set the variable Z% upon exit, to 
indicate whether or not the images fit. If Z% equals 0, the images fit 
and are displayed; if Z% equals 1, the images do not fit and none are 
displayed (if 15300 is the entry point) or only the ones that fit are 
displayed (if 15400 is the entry point). 

The following routine tests Z%. Add these lines to IMAGE 
MODULE: 
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100 GR : HOME 

110 PRINT "PLEASE TYPE YOUR NICKNAME. " ; 

120 INPUT X$ 

130 XV = 10: XC(1) = 3 

140 GOSUB 15300 

150 IF Z% = 0 GOTO 200 

160 PRINT "THERE WERE TOO MANY LETTERS . " 
170 PRINT "PLEASE TRY AGAIN WITH FEWER. " 
180 GOTO 110 

200: continue the program 



RUN it. 

Have you noticed that you have to wait a while for each letter to be 
displayed? It takes longer to display this kind of letter than a text 
letter (a letter in a program listing). The letters and numbers you see 
in text mode are created very quickly by the internal logic of the 
machine. The images presented here are created, piece by piece, by 
the logic of a BASIC program and, hence, take longer. 



SUGGESTIONS FOR LETTER GAMES 

Here are suggestions for two skill-building games you can design to 
help teach number recognition and keyboard familiarity to begin- 
ning readers. 

In the first game, the player types a letter and the program displays 
it using the LO-RES images. An adult, sitting with a beginning 
learner, can say the names of the letters as they are displayed to 
reinforce the learning. 

A second game displays a number and the player is asked to press 
the corresponding key. You might want to ignore all other keys to 
avoid confusion. When the player presses the correct key, the pro- 
gram makes a tone and presents another number. 
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UNDERSTANDING OUR 
LINE-NUMBERING CONVENTIONS 

Beginning in line 24800 of IMAGE MODULE are the DATA state- 
ments that contain the images. Look back at them and note the 
conventions we used in designing the images and assigning line 
numbers. Each image begins on a line number that is a multiple of 
100; each image begins with a DATA statement containing its width 
and height and a REM telling which image it is; each image ends 
with a DATA 

This particular line numbering convention allows us to access the 
images very easily, so it is important that you understand it. If you 
subtract 20000 from the line number of an image, you will see that 
the result is equal to 100 times the ASCII value of that character. For 
example, the A image begins at line 26500. 26500 minus 20000 is 
6500, or 100 times the ASCII value for A. The ASCII value for B is 66. 
Notice that the DATA statements for B begin on line 26600. 

Our line-numbering convention allows us to specify ASCII images 
using their character values, e.g., "A" for image number 65. This also 
means that you can create images for other keyboard characters and 
later access them in strings using their character values. 

Later you might want to design lower-case letters to complement 
the upper-case ones we provide. We suggest numbering them start- 
ing at image 97 (line 29700) so that the lower-Case image number 
equals the upper-case ASCII number, plus 32 (this means that you 
are using standard ASCII for lower case also.) When you want to 
refer to them in a string, add the following subroutine to IMAGE 
MODULE to convert upper-case ASCII to lower-case image num- 
bers: 
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15591: 

15592 REM * CONVERT UPPER CASE TO LOWER CASE * 

15593 REM ENTRY: Z$ UPPER CASE 

15594 REM EXIT: Zl$ LOWER CASE 
15599: 

15600 Zl$ = 

15610 IF LEN(ZS) = 0 THEN RETURN : REM EMPTY 
15620 FOR Z = 1 TO LEN(Z$) 

15630 Zl$ = Z1S + CHR$(ASC(MID$(ZS,Z, 1) ) + 32 ) 
15640 NEXT 
15650 RETURN 

For example, if you added lower-case images to IMAGE MODULE, 
you could set X$ = "Cat" as follows: 

500 Z$ = n AT":G0SUB 15600 
510 X$ = "C" + Zl$ 

Our line-numbering conventions allow room for 255 images (lines 
20100 through 45599). Reserving image numbers 32 through 127 for 
the ASCII characters, you will have room for many more of your 
own. 



MAKING AN IMAGE LIBRARY 

You would probably like to have many other images. We suggest you 
begin creating an image library of your own. Image numbers 1 
through 31 and 128 through 255 are available to use within IMAGE 
MODULE. When you have written your program, you can merge 
IMAGE MODULE with it and have all the images available at once. 
To save space in a program, delete the images you don't want after 
you have merged IMAGE MODULE. By making an image library and 
using it this way, you can save and easily reuse the images you have 
spent time creating. 
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DESIGNING AND INCORPORATING NEW IMAGES 

The easiest way to create images is to design them on graph paper 
and then copy the picture by typing numbers into DATA statements. 
Because the color dots on the screen are not perfectly square, howev- 
er, the image on the screen will not be exactly the same shape as the 
one on the graph paper. A two-color tree designed on graph paper 
might look like Figure 1. 



Modify IMAGE MODULE as follows: 



10 REM ...TWO COLOR TREE- JJ 


J 1 : 






1 0 0 


GR . HOME 




110 1$ = CHRS (1) 




120 1 


cm = 4 




130 X C ( 2 ) = 8 




140 


GOSUB 15300 




999 END 




20100 


DATA 21,38: 


REM TWO 


20102 


DATA " 11 


111111111 


20104 


DATA " 111 


111111111 


20106 


DATA " 11111 


111111111 


20108 


DATA "11111 


111111111 


20110 


DATA "11111 


111111111 


20112 


DATA "11111 


111111111 


20114 


DATA "11111 


111111111 


20116 


DATA "11111 


111111111 


20118 


DATA "11111 


111111111 


20120 


DATA "11111 


111111111 


2 012 2 


DATA "Hill 


111111111 


20124 


DATA "11111 


JillilllJ 


20126 


DATA "11111 


111111111 


2 012 8 


DATA "11111 


1 1 22111 


2 013 0 


DATA " 111 


11 2 2 1 


2 013 2 


DATA " 111 


11 22 


2 013 4 


DATA " 11 


11 22 


2013S 


DATA " 


2 2" 


2 013 8 


DATA " 


2 2" 


20140 


DATA " 


22" 


2D142 


DATA " 


2 2" 


20144 


DATA " 


22" 


20146 


DATA " 


22" 


20148 


DATA " 


2 2" 


20150 


DATA " 


22" 


2 015 2 


DATA " 


22" 


20154 


DATA " 


2 2" 


2 015 6 


DATA " 


2 2" 


2 D 1 5 8 


DATA " 


22" 


20160 


DATA " 


2 2" 


20162 


DATA " 


2 2" 


20164 


DATA " 


22" 


20166 


DATA " 


22" 


20168 


DATA " 


22" 


20170 


DATA " 


22" 


20172 


DATA " 


2 2" 


20174 


DATA " 


22" 


2 017 5 


DATA " 


22222222 


20178 


DATA "-J" 





MODULE. 



■COLOR TREE 
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Note that lines 20100 through 20178 correspond to the graph. Type 
this and SAVE it as TWO-COLOR TREE. The TWO-COLOR TREE 
image number does not have an ASCII equivalent, so you access the 
image differently (see line 110). Instead of typing the string of char- 
acters in X$, type the reference to the image. For example, to access 
image number 130, use the statement X$ = CHR$(130). Using this 
method, you can position images the same way you position charac- 
ter strings. Assign the image number to X$ using CHR$; then enter 
the IMAGE MODULE at either 15300 or 15400. 

You can also use X$ to position several images in a row. Write the 
assignments in the following form: 

X$ = CHR$(130) + CHR$(140) 

where 130 and 140 are image numbers. 

Finally, a word about spacing the images in the X$. As the module 
is presently written, it creates one space between successive images. 
If you want to change it, set XS to 1 the number of spaces you want 
before you enter the module (see lines 15310 and 15410). 



REUSING AN IMAGE WITH DIFFERENT COLORS 

When we created the image, we assigned a number to each of the 
blocks on the graph paper that we may want to color. The spaces (the 
blocks without numbers) do not get colored. Later, when we include 
the image in a program, we will translate each number into an 
APPLE color, just as we did with the 1's in the letter images. 

We can have a dark green tree with a brown trunk by setting XC(1) 
= 4 and XC(2) = 8. Later we can use the same image and have a 
yellow tree with a white trunk by assigning XC(1) = 12 and 
XC(2) =15. Still later we can have a red tree with a red trunkby typing 
XC(1) = 1 and XC(2) = 1. 

Using this color-numbering method, you can design an image 
without immediately deciding which colors you are going to use. 
You can try different combinations of colors just by making different 
color assignments. This kind of flexibility is particularly useful 
when you are designing something like the next tree shown in 
Figure 2. 
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We used three numbers in this image. By assigning colors to the 
numbers in different ways, we can make very different-looking 
trees. Modify IMAGE MODULE as follows: 



i o 
j j 

100 
110 
120 

1 3 0 

14 0 

15 0 
160 
170 
180 
200 
210 
220 

2 3 0 
240 
250 
2B0 
270 
300 
310 
320 
330 
340 
350 
360 
370 
400 
410 
420 
4 30 
440 
450 
460 
470 
500 
510 
520 
530 
540 
550 
999 
2 0 2 
2 0 2 0 2 
2 0 2 0 4 
2 0 2 0 6 
2 0 2 0 8 
20 2 1 0 
2 0 21 2 
2 0 21 4 
20216 
2 0 2 1 8 
2 0 2 2 0 
2 0222 
20 224 
20 226 
2 0228 
2 0230 
20 23 2 
202 34 
2 0 23 6 
2 0 2 3 8 
20240 
20242 



REM 



. THREE COLOR TBEE-1MAGE MODULE. 



GR . HOME 
XS = ' CHRI (2) 
XV = 0 
XC< 1 ) = 1 
X C ( 2 ) = 2 
X C ( 3 ) = 3 
COSUB 15300 
FB1NT . PRINT 
GET 2$ 
GR . HOME 
XV = 0 
XC( 1 ) = 3 
X C ( 2 ) = 4 
X C f 3 ) = 5 
GOSUB 15300 
FEINT : FB1NT 
GET ZS 
GR : HOME 
XV = 0 
X C ( 1 ) = 9 
XC(2) = 9 
X C ( 3 ) = 9 
GOSUB 15300 
FB1NT : PB1NT 
GET ZS 
GR . HOME 
XV = 0 
XC(1) = 5 
XC(2) = 5 
XC( 3) = 6 
GOSUB 15300 
FB1NT . FB1NT 
GET Zl 
GR : HOME 
XV = D 
XC(1) = 0 
XC(2) = 0 
X C ( 3 ) = 8 
GOSUB 15300 
END 

0 0 DATA 2 3 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



"FEEBB ANY KEY TO CONTINUE. 



"PRESS ANY KEY TO CONTINUE. 



"PRESS AMY KEY TO CONTINUE. 



"FBEBB ANY KEY TO CONTINUE. 



39. REM THREE-COLOR TREE 
11111111111111111" 
12211111111111111" 
112211111111111222111" 
111111111111122221111" 
1111122211111111111111} 
1311111122211111113111} 
1311311111111111132211. 
1 333 32 21 1 1 1 1 1 1 2 2 31 1 1 1 1 J 
1111322231311111311131: 
1211311113111211313311: 
221311111312221313111: 
1333111211311113322" 
1113112221313333 1" 
1113 3111113 3 3" 
3 311113 3" 
3 3 3 3 3 3" 
33" 
33" 
3 3" 
3 3" 
33 " 
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20 244 


DATA 




3 3" 


2 0 246 


DATA 




33 " 


20248 


DATA 




3 3" 


2 0 2 5 0 


DATA 




33" 


2 025 2 


DATA 




33" 


20254 


DATA 




33" 


2 0 2 5 6 


DATA 




33" 


20258 


DATA 




33" 


2 0 2 6 0 


DATA 




3 3" 


2 0 2 6 2 


DATA 




3 3" 


2 0 2 6 4 


DATA 




33" 


202S6 


DATA 




3 3" 


2Q2SB 


DATA 




33" 


20270 


DATA 




3 3" 


20272 


DATA 




33" 


20274 


DATA 




33" 


20276 


DATA 




33" 


2027S 


DATA 




3333333333" 


202S0 


DATA 


" - 1 " 





Type it and SAVE it as THREE-COLOR TREE. Notice how the same 
image can look different depending on the color assignment (see 
lines 130 through 150, 220 through 240, 320 through 340, 420 
through 440, and 520 through 540). 

When we designed the tree, we decided which areas might have 
different colors and assigned a different number to each. (The more 
numbers you assign, the greater the flexibility you will have when 
you color the image.) Then, when we used the image in the program, 
we assigned different colors to the numbers. (One time we assigned 
the same color to several numbers — see lines 320 through 340, 420 
through 440, and 520 through 540.) Using this method, you can 
design for a maximum of nine colors. Later you can control the 
"busyness" of the image with the actual color assignment state- 
ments. And, of course, you can use the image again another time 
with different color assignments. 

The last image is even more complex and versatile. We used nine 
different numbers to designate different portions of this figure. Us- 
ing different sets of colors, you can have four realistic arm-position 
combinations and four realistic leg-position combinations (Figure 
3). (Assign black to the extra body parts.) 



Make the following changes to IMAGE MODULE. 
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10 
11 

I 0 0 

I I 0 



REM 



, PERSON-IMAGE MODULE. 



Z = 500 + 10 
GOSUB 19000 
FOB J = J TO 
BEAD XC(J) 
NEXT 

GR . HONE 
XV = 0 
GOSUB 1530 0 
PRINT 
PRINT 
GET 1% 
NEXT 
END 
REM * 
REM 



PRESS RETURN TO CONTINUE. 



ft VALUES FOR XC( 1 ) , . 
(N-TH PERSON COLORS 



. . , X C ( 9 .) « 

AT LINE 500*1 0*N) 



C = 3 : REM # OF COLORINGS 
FOR N = 1 TO C 

120 X S = CHR 5 (3) 

1 97 : 

198 REM ft COLORS FOR N-TH PERSON AT LINE 500*10&N ft 

199 : 

200 Z = 500 * 10 « N 
210 
220 
230 
240 
300 
310 
320 
400 
410 
420 
430 
490 
497 
498 
49 9 . 

5 1 0 DATA 5,0,0,5,5,0,5,0,5 

52 0 DATA 1,0,1,0,1,0,1.-0,1 

53 0 DATA 0,4,4,0,4,4,0,4,0 
20300 DATA 20,39: REM PERSON 
20302 DATA 
203 04 DATA 
203 06 DATA 
20 3 08 DATA 

2 0310 DATA 
20 312 DATA 
20314 DATA 
20 318 DATA 
20318 DATA 
20 32 0 DATA 
203 22 DATA 
20324 DATA 
20 3 26 DATA 
203 2 8 DATA 
20330 DATA 
20 3 32 DATA 
203 34 DATA 
20 336 DATA 
20338 DATA 
2 0 340 DATA 

20342 DATA " 77 88 55" 

203 44 DATA "77 88 55" 

20346 DATA " 77 88 55" 

20348 DATA "77 88 55" 

20350 DATA "77 8 8 5 5" 

2 0 3 5 2 DATA ." 7 7 8 8 5 5 " 

20354 DATA " 77 88 559999999 

20356 DATA "777 88 559999999 

20358 DATA "777 88 66 99 

2 036 0 DATA " 8 8 66 9 9 

20362 DATA " 8 8 66 9 9 

2 0364 DATA " 8 8 66 " 

2 036 6 DATA " 8 8 66" 

20 368 DATA " 8 8 66" 

2 0 370 DATA " 88 66" 

2 037 2 DATA " 8 8 66" 

20374 DATA " 88 66" 

2 037 6 DATA " 88888 66666" 

2 0 378 DATA " 88888 66666" 

20 38 0 DATA 



555 
555 
55 5 
555 
55 5 

5 

5 

2 2 2 2 2 5 5 5 5 5 5 5 5 3 3 3 3 3" 
2 1155555 4" 
2 11 5555 5 4" 
5 5 5 5 5 
5 5 5 5 5 
5 5 5 5 5 
5 5 5 5 5 
5 5 5 5 5 
5 5 5 5 5 
1115 5 5 5 5 
115 5 5 5 5 
77777775555 5 
777777755555 
77 
77 
77 
77 
77 
77 
77 



' 2 11 
' 211 
» 21 
' 21 
'22211 
11 



3 3 3 " 
3" 
3" 
3 " 
3" 
3 " 
3 " 



4 " 

4 4" 

4 4" 



RUN it. 
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To show one hand on hip and one arm in the air, color 1,3, and 5 
the same, and assign black to 2 and 4. How would you place the arms 
so the figure looks like an Egyptian drawing? 

To make the figure stand up straight, color 5,6, and 8 the same and 
assign black to 7 and 9. Can you color the figure so only the left leg is 
raised? 



DIFFERENT TV, DIFFERENT COLORS 



In the last chapter, you played with colors when you made the boxes 
and borders. Now that you are making images, you may want to take 
the colors more seriously. The colors you see on your screen depend 
on your particular TV set. In fact, your program may look different 
when it's being displayed on a different TV. APPLE supplies a color 
testing chart you can use to see what the colors look like. Look for it 
in your APPLESOFT Reference Manual. 

We strongly encourage you to make your own images. It's really 
fun, and it will help make your programs uniquely your own. You 
can make big images that simply appear during a program. Or you 
can make little images and move them around on the screen. The 
important thing to remember, though, is that they are stored in 
DATA statements, so you cannot use the same line numbers for 
different images. 



GRAPHIC IMAGES IN LO-RES 59 



CHAPTER SUMMARY 



This chapter showed how to use IMAGE MODULE to create LO-RES 
graphic letters and numerals and also how to design and use original 
images. You will find IMAGE MODULE very useful when you are 
writing your own game programs. Later in the book you will see how 
we used it in the games we wrote. 



CHAPTER FOUR 

MigIh°E©§etati©i]i Graphics 



In this chapter you will learn a little bit about how to use the 
high-resolution graphics capability of the APPLE II. High-resolution 
(HI-RES) graphics are much more complicated to use thanLQ-RES. 
As a matter of fact, they are so complicated that we are not going to 
show you all the details. We have discovered that very few things 
can be done in HI-RES from APPLESOFT BASIC without an enor- 
mous amount of detailed programming. Many game-type programs 
feature HI-RES graphics that use machine language subroutines to 
greatly speed up the display process. However, since the sub- 
routines are not done in BASIC and since machine language pro- 
gramming is beyond the scope of this book, we will only remind you 
that the programs are probably much more complex than they look 
at first. Another way of thinking about HI-RES programming is, 
"What you've seen, you can't do!" 

The APPLE designers attempted to resolve some of the difficulty 
of doing HI-RES graphics in BASIC by introducing the concept of 
using shape tables. Shape tables allow you to design, create, and 
manipulate shapes using a special set of instructions. Unfortunate- 
ly, even shape tables are slow, cumbersome, difficult to use, and too 
intricate to discuss in this book. For example, they are inadequate to 
create a HI-RES map of the United States. 

For those of you who want more details on HI-RES graphics shape 
tables, we suggest Chapter 9 of the APPLESOFT Reference Manual 
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that came with your computer. We also suggest that you consider 
purchasing any one of the several well-documented, high- 
resolution graphics software packages that are currently available. 
Using a commercial package is much easier than trying to figure out 
how to do HI-RES in BASIC. Check your local computer store for 
their favorite package. Then look carefully at the documentation to 
be sure you understand how to use it. 



FUNDAMENTALS OF HI-RES 



Now that you know what you can't do in BASIC, we'll show you 
some things you can do. HI-RES graphics uses two graphics screens, 
screen one and screen two. To use screen one, use the instruction 
HGR. HGR2 tells your program to use screen two. Either of these two 
instructions clears the appropriate graphic screen to black. Screen 
one can display a matrix of 280 dots across (0 through 279) and 160 
dots down (0 through 159). "Beneath" HI-RES screen one is blank 
screen space on which you can display four lines of regular text, 
using normal PRINT statements in your BASIC program. Screen two 
displays a matrix of 280 by 192 dots with no text space. 

The instruction HCOLORtells the program which HI-RES color to 
use when plotting on the HI-RES screens. The eight HI-RES colors 
available and their color numbers are shown below: 



0 = black 

1 = green 

2 = violet 

3 = white 



4 = black 

5 = orange 

6 = blue 

7 = white 



Note the duplication of black and white colors (the reason for the 
duplication is quite technical). You should also note that colors 5 
and 6 may not appear as orange and blue on your TV screen. One of 
the difficulties with HI-RES color is the tremendous variation 
among home television sets. The colors in our program may depend 
on the set you show them on. To avoid some of the problems, you 
can stick with black and white graphics! 
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To select white as your plotting color, use this instruction: 
HCOLOR = 3 

White will be plotted on the screen until another HCOLOR state- 
ment is executed changing the plot color. 

The HPLOT instruction is used to plot a point or a line on the 
HI-RES screen. The upper left corner of the screen is considered 
position 0, 0. All points are plotted in relation to this point. 

HPLOT 25, 55 will plot a point in the current color located at the 
dot 25 columns over and 55 rows down from the upper-left corner of 
the screen. 

HPLOT 10,20 to 110,90 will plot a diagonal line from point 10, 20 
to point 110, 90. 

To continue the plot line from point 110, 90, use this abbreviated 
form of HPLOT: 

HPLOT TO 160, 20 

This abbreviated form of the HPLOT statement assumes that you 
want to continue plotting from the last point plotted (in our case 110, 
90). 

You could combine the above into one HPLOT statement that 
looks like this: 

HPLOT 10,20 TO 110,90 to 160, 20 

The following program is a demonstration of the HI-RES com- 
mands you have learned so far. 



1 0 HEM . . . HI -RES DEMO J . . . 

11 : 

110 HGR 

120 HCOLOHs 3 

130 HPLOT 25,55 

140 GOSUB 220 

150 HPLOT 10,20 TO 110 , SO 

ISO GOSUB 220 

170 HPLOT TO 160 < 20 

180 GOSUB 220 

19 0 GOTO 30 0 

215 : 

220 PRINT "PRESS RETURN TO CONTINUE:"; 

2 3 0 INPUT J?f 

24 0 RETURN 

3 0 0 END 



Enter it and RUN it. 
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1. Write the statement that will cause the plot line to continue 
down the screen in a straight line to position 90. 

185 



2. Write a statement that will change the plot color to green. Then 
write another statement to plot a horizontal line across the entire 
screen and just below the plot line now on the screen. 

190 
200 



1. 185 HPLOT TO 160,90 

2. 190 HC0L0R = 1 

200 HPLOT 0, 90 to 279, 90 

To wash the screen with a color background instead of the black 
background that is cleared by HGR and HGR2, use this procedure: 
— HGR or HGR2 
— POKE 28, X 
—CALL 62454 

X can be any color from 0 through 255. Except for the values indi- 
cated below, you will get an interesting striped color image on your 
screen. These values of X in the POKE statement will give you a solid 
background in the color indicated: 

black— 0 or 128 
white— 127 or 255 
green — 42 
violet — 85 
orange — 170 
blue— 213 
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The screen wash works very quickly. Once the screen color is 
established, you can plot lines in other colors over the background 
color. 



SOME HI-RES PROBLEMS 



The program you tried earlier worked just as you might have ex- 
pected. You can even change the colors and the program will still 
work. When you switch to screen two by using HGR2, the program 
will also work, except for the "press RETURN" prompts. They will 
not appear because screen two has no text window. 

We make a point of mentioning that this program works as you 
would expect because, as a result of variations in televisions as well 
as pecularities in HI-RES, things do not always work as you might 
expect. Following is a classic example. The program below attempts 
to place a nice single-color border around HI-RES screen one. Enter 
the program and RUN it to see what happens. 



10 REM . . . HI BES BORDER. . . 

11 : 

12 REM BORDER DEMO IN EACH COLOR 

13 : 

100 FOR J = 0 TO 7: REM USE EACH COLOR 

110 HOME : HGE 

J20 HCOLOR= J: REM NEXT COLOR 

ZOO HPLOT 0 J TO 279,0 TO 27 9,159 TO 0,159 TO 0,0 

3 0 0 VTJiB 22: PRINT " BORDER IN COLOR " , J 

310 P R I NT 

3 2 0 PRINT "FRESS RETURN POR THE NEXT COLOR... " ; 

330 GET Z$ 

34 0 IF 1% = CHRI (27) THEN TEXT : END : REM ESC 

3 5 0 NEXT 

360 GOTO 100. REM LOOP 



As you can see, some of the borders were incomplete and some of 
them appeared with multiple colors. How do things like that hap- 
pen? There is no easy answer to that question. 
1. Why did nothing appear on the screen for colors 0 and 4? 
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2. Which colors displayed a complete four-sided border, though 
colors may have been mixed? 



1 . Those are black colors that are not visible and did not appear on 
the black screen. 

2 . Colors 3 and 7 are white and did display four sides of the border, 
though the vertical sides were odd colors on our TV. 

Now add this statement to your program and RUN it again to 
observe the change: 

210 HPLOT 1, 1 TO 278, 1 TO 278, 158 TO 1, 158 TO 1, 1 

The purpose of this statement is to make a double border around the 
screen (an inner border) to see if that improves our picture. 
Which colors now have a full, normal, one-color border? 



Green, violet, white, and blue were normal. On our screen, color 5 
(orange) had two or more colors and color 7 (white) did not appear 
correctly. Much to our surprise, the same problem appeared when 
we ran this program using an expensive video monitor. 

Now delete statement 200 in your program to see if a single 
inner-border will appear correctly. 
What happens when you RUN the program now? 
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The odd color problems reappeared just as they did when we first 
ran the program. 

These same problems appear when you use HI-RES screen two. 
Type this little program and RUN it: 

100 HGR 

110 HC0L0R = 1 

120 HPLOT 50,0 TO 70, 150 

You would expect a single line to be plotted on the screen. What 
actually appeared on the screen? 



A series of short plot lines from point to point appeared, rather than 
one continuous line. 

Change the color to see if that changes the image. Try changing the 
plot line points. Your screen image will change in an interesting 
manner. 

Other problems may also appear on a HI-RES screen. Some are 
called clutter, others artifacts. One common problem is the un- 
wanted orange stripe that sometimes displays down the left side of 
the screen. It is a function of what appears to be an error in the 
HI-RES graphic software. Other problems are not a function of your 
APPLE or the HI-RES capability of the APPLE. Rather, they are a 
product of the circuitry found in television sets and more expensive 
color video monitors. 



FUN WITH HI-RES 



This chapter could not end without some examples of what can be 
done quickly and easily with HI-RES graphics. (You really can do 
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things!) But don't expect perfection. As you try these exercises, you 
will see color imperfections appear on your screen. Don't fret . . . 
that's just HI-RES! 

Enter and RUN this program that displays a simple string pattern 
in HI-RES graphics. 



10 HIM ...STUNG FATTIHN. . . 

11 : 

11 HEM BIMFLE STHING PATTEHN 
2 3 : 

100 TOT : BEH FOHCE FULL BCBEEH 

110 HO * 0 : HEM H-QHJGJN 

120 V0 = 159: BEH V-OHJGJN 

23 0 MS s IB: HEM MAXIMUM STEP SIZE 

200 HOME : HGB 

210 5% = MS * BNB (J) * 1: HEM SELECT HANBOM STEP BIZE 
220 HTAB 1: VTAB 2 2: FHINT "STEP SIZE ^ " ; S% 

238 21 ^ 7 s HMD (1) * 1: IF Z% ^ 4 THEM 230: HEM SELECT HANBOM 

NON-BLACK COLOH 
240 HCOLOH^ Z% 

300 H% * V0 / S% « S%: HEM HANGE 

310 FOH J s 0 TO H% STEP S%: HEM STEP THHOUGH ENBFOINTS IN THE HANGE 
320 HPLOT H0,V0 - H% * J TO HO * J,V0: HEM NEXT STHING SEGMENT 
3§0 NEXT 
500 PH INT 

510 PHINT "FHESS HETUHN FOH NEXT PATTEHN... "; 
520 GET 1% 

5 3 0 IF Z $ s CHHS (27) THEN TEXT : END : HEM ESC 
54 0 GOTO 200 



SAVE it using the name STRING PATTERN. 

Here is a fancier version of a geometric string pattern. Geometric 
patterns are easy to reproduce in HI-RES and appear very clearly on 
the screen. This particular one is complex enough to cause color 
artifacts to appear on the screen in some of the displays. Make these 
changes to STRING PATTERN and SAVE it using the name STRING 
P ATTERN2 . RUN the program to see what it does . You might want to 
merge either of these two programs to your game programs to offer an 
interesting "time-out" or reward at the end of play. 



10 HEM ...STHJNG2 PATTEHN-STHING PATTEHN 

11 : 

12 HEM FhHCIEB STHING PATTEHN 

13 . 

110 HO ^ 139: HEM H-OHIGIN 

120 V0 = 79: HEM V-OHIGIN 

130 MS ^ 11: HEM MAXIMUM STEP BIZE 

330 HPLOT TO HD f V0 * H% - J: REM LO^EH E I GHT 

340 HPLOT TO HO - J,V0: HEM LOUEH LEFT 

350 HPLOT TO H0,V0 - H% * J: HEM UPPDH LEFT 
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CHAPTER SUMMARY 

This chapter may be a disappointment to those of you who thought 
you might learn all there is to know about HI-RES graphics in just a 
few short pages. It is our feeling that HI-RES programming is simply 
beyond the scope of what can be expected of the average home/ 
school BASIC programmer. You will enjoy programming with HI- 
RES graphics much more if you purchase and use one of the many 
commercial software packages that take the pain out of HI-RES 
programming. Also, keep in mind that LO-RES programming is 
much easier to do and young children find LO-RES images just as 
enjoyable as HI-RES images. 



CHAPTER FIVE 

Routines for Entering Dafta 



The object of this chapter is to show you how to use special data 
entry subroutines designed for your game programs. They are: The 
General-Purpose Input Subroutine, The Input Number Subroutine, 
The Y/N Subroutine, The Single-Character Input Subroutine, The 
Pause or Keystroke Subroutine, and the Get One Keystroke Without 
Echo Subroutine. Parts of this chapter are more technical than other 
chapters of this book because some of you may want to know some of 
the details of the data entry subroutines. If you don't want all the 
technical information, just read the "How to Use" sections to learn to 
use the six data entry routines. 

One principal frustration experienced by computer game players 
is having a program terminate or "abort" in the middle of play 
because they entered incorrect data. Conversly, a chief frustration of 
computer game programmers is that inexperienced players will 
enter incorrect data or hit the wrong keys when entering data. This 
causes the program to abort or "blow-up," to the consternation of 
both player and programmer. The ultimate program includes data 
entry handlers, or routines, to test all data entered for validity and to 
then respond appropriately without allowing the program to termi- 
nate. A good data entry routine is designed with the novice player in 
mind and will usually accept only the intended keystrokes, essen- 
tially deactivating the rest of the keyboard. We have developed four 
data entry subroutines fitting that description. A fifth and sixth are 
offered that you may want to use for special purposes. 
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Here is the complete INPUT MODULE that contains all the sub- 
routines. 



ID REM . . . INPUT MODULE. . . 

11 : 

12 REM INPUT SUBROUTINES 

13 : 
SB SO : 
B B 9 1 

9B92 BEE ** INPUT AND ECHO A STB1NG ENDING WITH BETUBN *• 
BB93 REM ENTRY : CURSOR SET TO BEGINNING OF INPUT FIELD 

9994 REM YV FIELD WIDTH 

9995 REM YFI FIELD F1LLEB CHARACTER 
9BB6 REM EXIT; 2% STB1NG 

B9B7 REM 2% -1 (ESC); 0 (NOT ESC) 

9 9 9 B 

1 0 00 0 IF LEN (YFI) < > 1 THEN YFI * " " : REM INITIALIZE FILLEB 

GHABAGTEB IF NECESSABY 
10010 YH% = PEEK (36) + 1 ; REM H-FOS 
10020 YV% s PEEK (37) * J: REM V-FOS 

10100 GOSUB 10500; REM SET INPUT FIELD TO THE FILLER GHABAGTEB AND 

INITIALIZE 
10110 GET Zl I 

10120 IF Zl I = CHRI (13) THEN RETURN ; REM RETURN 

10 130 IF 21$ ( > CHRI (27) THEN 10 200; REM ESC 
10140 GOSUB 10500 

10150 FLASH ; PB1NT "ESC"; CHRI (8);; NORMAL 
JDJBO Z% = - 1 ; REM ESC FLAG 
10170 GOTO 10110 

10200 IF Zll < > CHRI (8) THEN 10300; REM LEFT ARROW 

10 210 IF m ^ - 1 OR LEN (Zl) < « 1 THEN 10100; REM ESC AND ONE 

CHARACTER OR LESS SHARE LOGIC 
10220 PB1NT CHRI ( 8 ) ; YF I ; CHRI (8);; REM EBASE ONE GHABAGTEB 
10230 Zl = LEFTI (Zl, LEN (Zl) - 1) 
10240 GOTO 10110 » 

10 300 IF Z1S ( " " THEN 10110: REM IGNORE DTHEB CDNTBDL CHABACTEBB 
10310 IF Zl = - 1 THEN GOSUB 10500; REM CLEAR ESCAPE CONDITION 
103 20 IF LEN (Zl) < YW THEN 10400 

10330 IF YW = 0 THEN 10110. REM DO NOT ECHO IF WIDTH=Q 
10340 PB1NT CHRI (8),; REM ALREADY AT MAI WIDTH 
103 50 IF LEN (Zl) = 1 THEN Zl = 

10 3 6 0 IF LEN (Zl) > 1 THEN Zl = LEFTI (Zl , LEN (Zl) - 1) 
10400 PB1NT 21$ i: REM ECHO AND APPEND CHARACTER 
10 41 0 2 % - 2% * Zll 
10420 GOTO 10110 

10500 HTAB YH%; VTAB YV%; FOR 2 = J TO YW; PB1NT YFI;; NEXT ; REM 

SET FIELD TO FILLEB CHARACTER 
10510 PB1NT " " ;. REM AND EBASE POSSIBLE CURSOR 

1 0 5 20 IF YW < 2 THEN FOR 2 2 YW 1 TO 3 ; PBINT " ";: NEXT ; REM 

ERASE POSSIBLE ESC IF FIELD NOT WIDE ENOUGH 
1 0 5 3 0 HTAB YHSS; VTAB YV% 
10540 Zl 
10 550 2% = 0 
10560 RETURN 
105 91 . 

10 592 REM & INPUT NUMBER * 

10593 REM ENTBY: CONDITIONS FOB INPUT STB1NG SET 

10594 REM EXIT. Z% -1 (ESC); 0 (INVALID); 1 (INTEGER); 2 (DECIMAL) 

10595 REM Z VALUE (IF VALID) 
10 5 9 9 : 

10600 GOSUB 10000; REM GET STRING 

10 610 IF Zl = - 1 OR LEN (Zl) = 0 THEN BETUBN ; BEE ESC OR RETURN 

ONLY (Z%=D) 
10620 Z% = 1; REM SET VALID FLAG 

10630 FOR Zl = 1 TO LEN (ZI).Zll = MIDI {2% < 21 i D 

10 640 IF Zl% = " ." AND Z% = 1 THEN 2% = 2; GOTO 106 60; REM TRAP FOR 

FIRST DECIMAL POINT V 
10650 IF (Zll < "0" OR Zll > "9") AND (Zll < > AND Zl > 1) THEN 

Z* = 0; REM INVALID IF NOT A DIGIT AND NOT A LEADING - 
10660 NEXT 

10670 Z = VAL (Zl); REM VALUE ONLY IF VALID FLAG (Z% = J OR 2) 
10680 RETURN 
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0 99 1 : 

0992 REM at JNFUT INTEGER « 

089 3 REM ENT BY : CONDITIONS FOR INPUT STRING SET 

0994 REM YL MINIMUM INTEGER 

0995 REM YH MAXIMUM 

0996 REM EXIT: Z% - 1 (ESC) ; 0 (INVALID INTEGEB) i 1 (VALID 
INTEGEB) 

0997 REM Z VALUE (IF INTEGER VALID) 

0 9 9 9 : 

100 0 GOSUB 10600: REM INPUT NUMBER 

1 010 IF Z% < 1 THEN RETURN ; REM ESC OR INVALID 

1020 IF Zl = 2 THEN Z% = 0: RETURN : REM INVALID IF DECIMAL POINT 

10 30 IF Z < YL OR Z > YH THEN Z% = 0: REM INVALID IF OUT OF RANGE 

1040 RETURN 

10 91 : 

1 09 2 REM at INPUT DECIMAL at 

1093 REM ENTRY: CONDITIONS FOR INPUT STRING SET 

1094 REM YL MINIMUM VALUE 

1095 REM YH MAXIMUM 

1096 REM EXIT. Z% -1 (ESC) f 0 (INVALID); 1 (INTEGER); 2 
(DECIMAL) 

1097 REM Z VALUE (IF VALID) 
1 0 9 9 : 

1100 GOSUB 106 00. REM INPUT NUMBER 

1110 IF Zl < J THEN BETMBN : REM ESC OR INVALID 

1120 IF Z < YL OR Z > YH THEN Z% = D : REM INVALID IF OUT OF RANGE 

1130 RETURN 

1191 : 

1192 REM at INPUT Y OR N a t 

1193 REM ENTRY: CURSOR AND FILLER CHARACTER SET 

1194 REM EXIT: Z% -1 (ESC); 0 (NEITHER Y NOR N) ; 1 <Y), 2 (N) 
119 9 

1200 Yl = "YN": REM USE INPUT SINGLE CHARACTER ROUTINE 

1291 : 

1292 HEM at INPUT SINGLE CHARACTER AND MATCH WITH VALID STRING at 

1293 REM ENT BY : CURSOR AND FILLEB CHARACTER SET 

1294 REM YS BTBIHG OF MATCH CHARACTERS 

1295 REM EXIT: Z% -1 (ESC); 0 (CHARACTER NOT IN BTBING), J (J-TH 
CHABACTEB IN MATCH STRING) 

12 9 9 

1300 YW = 1: REM SET FIELD WIDTH 

1310 GOSUB 10000 

1 3 20 IF Zi = - 1 OR LEN (2%) =0 THEN BET\)BN . REM ESC OR 

RETURN ONLY (Z%=0) 

1330 Z% = 0: REM SET NOT MATCHED FLAG 
1340 FOR Zl = 1 TO LEN (Yl) 

1 35 0 IF 2% = MIDS (YS ,Z1 , 1 ) THEN Z% = 21: REM MATCH IN POSITION 
Zl 

1360 NEXT 
1370 RETURN 

13 91 : 

1392 REM at PAUSE OR UNTIL KEYBTBOKE at 

1393 REM ENTRY: YP LENGTH OF PAUSE IN INTERNAL TIME UNITS 

1394 REM 0 WAIT FOR KEYSTROKE ONLY 

1395 REM EXIT: 2% -1 (ESC) f 0 (PAUSE EXPIRED), 1 (KEYSTROKE 
BEFORE PAUSE EXPIRED) 

1396 REM Z KEYSTROKE (ASCII VALUE * 128) 
1 3 9 9 : 

1400 POKE - 16368,0: REM CLEAB TYPE-AHEAD 

1410 21 = 0: REM INITIALI2E COUNT (a ENTBY FOR GET ONE KEY a) 

1420 2 1=21+1 

1430 Z = PEEK < - 16384) 

1 44 0 IF Z ) =128 THEN Zl = i - Z MZ = J55): RETURN : REM 

KEYSTROKE; TRAP FOR ESC THEN RETURN 
1450 IF Zl < YP OR YP = 0 THEN 11420 

1460 ZS = 0: REM PAUSE EXPIRED 
1470 RETURN 

14 91 : 

1 49 2 REM at GET ONE KEY, NO ECHO, NO TYPE-AHEAD at 

1493 REM EXIT: Z% -1 (ESC), 1 (OTHER KEY) 

1494 REM Z KEYBTBOKE (ABCII VALUE + 128) 

14 9 9 ; 

1500 YP = 0: GOSUB 11400: REM WAIT FOR KEYBTBOKE ' 

1510 POKE - 16368,0: RETURN : REM CLEAR KEYBOARD AND BETMBN 

15 91 : 
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115B2 REM ** GET ONE KEY , NO ECHO , WITH TYPE-AHEAD ** 

J J 5 9 3 REM EXIT. Z% - 1 (ESC); 1 ( OTHER KEY) 

11594 REM Z KEYSTROKE (ASCII VALUE + 128) 

115 9 9 : 

J J 6 0 0 YP = 0: GOSUB 1 1420. REM GET ONE KEY f NO TYPE-AHEAD 

116 10 POKE - 18388,0: RETURN ; REM CLEAR KEYBOARD AND RETURN 
60000 : 

6 0 0 1 0 REM * COPYRIGHT 1981 BY HOWARD FRANKLIN, PALO ALTO f CA * 

6 0 0 2 0 : 



Type it. Save it as INPUT MODULE. 



GENERAL-PURPOSE INPUT SUBROUTINE 



The General-Purpose Input Subroutine will accept any characters 
on the keyboard: numbers, letters, and special characters. It can be 
used for all data entry. However, by itself, we use it for entering only 
letters and special characters. The subroutine simulates the use of 
the normal BASIC INPUT statement. It requires that the user always 
press RETURN to indicate that the entry is complete. Some program- 
mers mix GET and INPUT statements in the same program when 
asking for data. Novice users find it very confusing to PRESS RE- 
TURN for some answers and not press RETURN for others. Our data 
entry convention requires that the user always press RETURN. 
(Technical note: A GET statement is actually used for data entry, but 
each entry is tested for RETURN before the routine is terminated,) 
Another programming convention introduced allows the user to 
press ESCAPE (ESC) at any time during entry, and tests for it. The 
ESC key assumes a special purpose, usually to signal that the user 
wants to end the play, and is tested by the General-Purpose Input 
Subroutine. If the user presses ESC, the word ESC flashes on the 
screen advising the user that ESC was pressed. Pressing RETURN 
ends the entry sequence signaling ESCape has been pressed. Press- 
ing any other key before RETURN erases the ESC, and the program 
remains in the entry sequence. How the program itself responds to 
ESC will depend on what you, the programmer, tell it to do. 
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How to Use the General-Purpose Input Subroutine 

The General-Purpose Input Subroutine starts at line 10000. Here are 
the REMark lines that precede the subroutine: 

9 9 9 o . 
S99J 

9992 REM ** INPUT AND ECHO A STffJNO ENDING WITH BETUBN ** 

9993 REM ENTRY : CURSOR SET TO BEGINNING OF INPUT FIELD 

9994 REM YW FIELD WIDTH 

9195 BEE ¥F$ FIELD F I LLER , CHARACTER 

liSS BEH EXIT: 1$ STBINO 

9997 REM Z% -1 (ESC) ; 0 (NOT ESC) 

9 9 99 : 

As you can see, there are entry variables, YW and YF$, and exit 
variables, Z$ and Z%. The entry variables must be defined before 
you enter the subroutine using GOSUB 10000. The YW variable 
determines the field width or number of characters that the sub- 
routine will accept. If you want the user to enter a twenty-character 
name, then place this statement in the program: 

200 YW = 20 

YF$ is a filler character. It is most commonly used in games where 
the player makes guesses that fill in the blanks. If you do nothing to 
YF$, then the program assumes that YF$ contains a blank character 
and will display blanks on the screen where the user is entering 
characters. If you want the user to "fill-in" places, for example, 
indicating how many characters are acceptable, place some charac- 
ter into YF$. Here is an example: 

210 YF$ = "-" 

To use the subroutine in a game program, your program might look 
like this, where the field width is set to three and the filler character 
to "x": 



200 YW = 3: YF$ = "x" 

210 PRINT "ENTER A THREE DIGIT NUMBER : " ; 
220 GOSUB 10000 
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Write the BASIC statements that set the entry variables for a ten- 
character entry variable word. Use the equals sign as a filler char- 
acter. 



200 YW = 10: YF$ = " = " 

210 PRINT "ENTER A 10 CHAR WORD : " ; 

220 G0SUB 10000 

The exit variables serve two functions. Z$ will contain the data 
that was entered and accepted, numbers or letters. Variable Z% will 
be set to -1 if the ESC was pressed or will remain at zero (0) if there 
was no escape. You can use the ESC key for many different purposes. 
This subroutine allows you the flexibility to choose how to use it. 
For some of our programs, we have adopted the convention that 
when the user presses ESC during play, it is a signal for "help," and 
the instructions or a note or clue of some kind are printed on the 
screen. If the user presses ESC again from the "help" screen, the 
program ends. To continue play from the "help" screen, the user 
could press RETURN. This is all controlled by using the INPUT 
MODULE'S flexibility. 

ESC can also be used to return to a menu of choices, to reshuffle 
cards in a card game, to quit the round but continue the game, and a 
host of other purposes. Using this subroutine, ESC is only detected. 
You, the programmer, determine what the program will do. 

Here is the rest of the General-Purpose Input Subroutine. 
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000 IF LEN (YFS) < > 1 THEN YF I = " ": HEM INITIALIZE F ILLEB 

CHABACTEB IF NECESSARY 
010 YH% = PEEK (36) + 1 : REM H-POS 
020 YV% = PEEK (37) * 1: BEE V-POS 

100 GOSUB 1 0500: REM SET INPUT FIELD TO THE F ILLEB CH.AB.ACTEB AND 

INITIALIZE 
1 1 0 GET Z 1 1 

120 IF 21% = CHRI (13) THEN RETUBN : REM HETUBN 
130 IF Zll < > CHR S (27) THEN 1 0 200: HEM ESC 
140 GOSUB 10500 

150 FLASH ; FBINT "ESC " < CHRI (8);: NORMAL 
ie0 Z% = -l: REM ESC FLAG 
170 GOTO 10110 

200 IF Zll < > CHRI (8) THEN 10300. HEM 
210 



LEFT ARROW 
= 1 THEN 10 10 0: HEM ESC AND ONE 



10 
1 0 
10 
1 0 
10 
10 
10 
10 
10 
1 0 
1 0 
10 

105 0 0 

10 
1 0 



REM ERASE ONE CHARACTER 



IGNORE QTHEB CONTBOL CHABACTEBS 
: REM CLEAB ESCAPE CONDITION 



- 1) 



IF Z% = - 1 OR LEN (ZD < 
CHABACTEB OR LESS SHARE LOGIC 
220 FBINT CHRI (B)jYFS; CHRI (8); 

2 3 0 Zl ^ LEFTI (Zl, LEN (ZD - 1) 
240 GOTO 10110 

30 0 IF Zi$ < " " THEN 10110: REM 
310 IF Z% = - 1 THEN GOSUB 10500 
32 0 IF LEN (ZD < YW THEN 1 040 0 

330 IF YW s 0 THEN 10110: REM DO NOT ECHO IF VIDTH=0 
340 FBINT CHH S (8);; REM ALREADY AT MAI WIDTH 

3 5 0 IF LEN (ZD = 1 THEN Zl = 

3S0 IF LEN (ZD > 1 THEN Zl = LEFTI (Zl, LEN (Zl) 
400 PRINT Zll;: REM ECHO AND APPEND CHABACTEB 
41 0 Zl = Zl + Zll 
420 .GOTO 10110 

HTAB YH%: VTAB YV%: FOR Z = 1 TO YW: FBINT YFS ; 
SET FIELD TO FILLER CHARACTER 
510 PRINT " " ; : REM AND EBASE POSSIBLE CURSOR 
520 IF YW < 2 THEN FOR Z ^ YW * 1 TO 3 : FBINT " " ; 
ERASE POSSIBLE ESC IF FIELD NOT WIDE ENOUGH 
10530 HTBB YH%: VTAB YV% 
10 540 Zl = 
10550 Z% ^ 0 
56 0 RETURN 



NEIT 



NE1T 



REM 



REM 



Note that all entered data are placed in a string variable (Z$). 
Write the statements that will allow the user to enter a four-character 
word, with the filler character being periods (.). Test for ESC (GOTO 
4000). If no ESC, let the user enter another word with as many as ten 
characters into a period-filled field. 
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200 YW = 4: YF$ = 

210 PRINT "ENTER YOUR GUESS : " ; 

220 GOSUB 10000 

230 : 

240 IF Z% = -1 THEN 4000 : REM ESC TEST 
260: 

270 YW = 10 : YF$ = " . " 
280 PRINT "ENTER A WORD : " ; 
290 GOSUB 10000 
300 REM PROGRAM CONTINUES 



3999 STOP 

RUN the program now and "exercise" the data entry routine so 
that you can answer these questions. 

1 . What happens if you attempt to enter more characters than are 
acceptable? 



2. What happens if you press the left arrow key? 



3. What happens if you press CTRL C? 



4. What happens if you press the ESC key? 
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1. The last character erases and is replaced by the most recent 
character typed. You cannot enter more characters than allowed. 

2. The previous character(s) is erased and can be replaced by a new 
character. This allows the user to correct data entry mistakes. 

3. Nothing. The CTRL key is deactivated. 

4. ESC flashes on the screen until you press some other key. If you 
attempt to enter data, ESC is erased and the data are accepted. 

A Technical Peek at the General-Purpose Subroutine 

This short subroutine is very powerful in terms of what it does. Line 
10000 sets the field-filler character to the default condition blank if 
it has not already been set by the program. Lines 10010 and 10020 
establish the cursor position for later use. The subroutine at 10500 
prints the field-filler characters on the screen to establish the data 
entry screen. 

The only actual point to enter data is the GET statement in line 
10110. Note that the entry is to a string variable (Zl$) so that num- 
bers, letters, and special characters are all acceptable. 

RETURN is checked in line 10120. ESC is tested in line 10130. 
Thereafter, the program handles the left-arrow-erase routine (10200 
through 10230), ignores all unwanted characters (10300), and 
checks the length of data entry (10330 through 10350), 

What happens in line 10410? 
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The exit string, Z$, is created, one character at a time being con- 
catenated to Z$. 



INPUT NUMBER SUBROUTINE 



The General-Purpose Input Subroutine can accept any entered data: 
numbers, letters, and special characters. We have designed two 
special subroutines to enter numeric values; the Input Integer Sub- 
routine and the Input Decimal Subroutine. Here are the beginning 
statements of the Input Number Subroutine. It is used by the Integer 
and Decimal Subroutines: 



10 5S2 REM * INPUT NUMBER * 

1 0 593 MM ENT BY : CONDITIONS F OR INPUT STRING SET 

10594 BEM EXIT: 2% -1 (ESC); 0 (INVALID); 1 (INTEGEB)i 2 (DECIMAL) 

10595 REM Z VALUE (IF VALID) 
10599 : 

1DS00 GOSUB 10000: REM GET STRING 

10 BID IF 2% = - 1 OB LEN (ZD = 0 THEN RETURN : BEM ESC OB 

RETURN ONLY (Z%=0) 
10620 Z% = 1 : BEM SET VALID FLAG 

10S30 FOE 21 = 1 TO LEN (ZD.Z1S = MID 5 (ZS,Z1,1) 

10640 IF 21$ = AND Z% = 1 THEN Z% = 2: GOTO 10660: BEM TRIP FOB 

FIRST DECIMAL POINT 
10650 IF (Zll ( "0" OR Zll > "9") AND (21$ < > " - " AND Zl > 1) THEN 

Z% s 0: REM INVALID IF NOT A DIGIT AND NOT A LEADING - 
10660 NE1T 

1 0 670 Z = VAL ( Z § ) : REM VALUE ONLY IF VALID FLAG (Z%rJ OJ? 2) 
10 680 RETURN 
10BB1 : 



How to Use the Input Integer Subroutine 



At times you will want the user to enter a positive or negative integer 
that falls within a range; for example, between 1 and 100. To enter a 
negative integer, use the minus (-) sign. For this situation a special 
integer subroutine is presented here. 

The entry point for this subroutine is line 11000. Here is the Input 
Integer Subroutine: 
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1 0 9 9 1 : 

J 0 99 2 REM INPUT INTEGEB ** 

10993 BEM ENTBY: CONDITIONS FOB INPUT STB ING SET 

10BB4 BEM YL MINIMUM INTEGEB 

1 0 9 9 5 BEM YH MAXIMUM 

J0996 BEM EXIT: Z% - 1 (ESC); 0 (INVALID INTEGEB); J (VALID 
INTEGEB) 

10997 BEM Z VALUE (IF INTEGEB VALID) 

1 0 B B B : 

HOOD GOSUB 1 0 6 0 0: BEM INPUT NUMBEB 

11010 IF Zl ( J THEN BETUBN ; BEM ESC OB INVALID 

1 10 20 IF Zl = 2 THEN Z% = 0: BETUBN : BEM INVALID IF DEC I JUL POINT 

1 1 0 3 0 IF Z < YL OR Z > YH THEN Z% = 0 : BEM INVALID IF OUT OF BANGE 

11040 BETUBN 



The entry variables contain the low and high range of the accept- 
able integer. You will still want to set YW and YF$ for field width 
and filler character. Your program might look like this segment that 
will set the entry variables to accept a three-character integer in the 
range of 250 through 750: 

200 YW = 3: YF$ = 

210 YL = 250: YH = 750 

220 PRINT "ENTER A3 — DIGIT NUMBER: " ; 

230 GOSUB 11000 

240: 

The exit variables from this subroutine are different than before. 
Z% returns as -1 if ESC was pressed. If the number entered falls 
within the 250 through 750 range, Z% will be set to 1. If the entered 
item is out of range or contains invalid characters, Z% is set to 0. This 
means that you must include an error test and message to advise the 
user to enter a number within range. The variable Z will contain the 
entered and accepted number. Here's how your subroutine exit tests 
might look: 

250 IF Z% = -1 THEN 5000 : REM ESC TEST 
260 IF Z% = 0 THEN PRINT : PRINT "PLEASE ENTER A 
NUMBER BETWEEN " ; YL ; " AND n ; YH : GOTO 200 : 
REM INVALID NUMBER TEST 

270 IF Z = N THEN 4000 : REM WINNER ROUTINE 
280: 
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How to Use the Input Decimal Subroutine 

To enter numbers with decimals, or non-integer numbers, use the 
Input Decimal Subroutine shown below: 



110 91 : 

11092 BEM ** INPUT DECIMAL ** 

11093 REM ENTRY. CONDITIONS FOB INPUT STB ING SET 

11094 BEM YL MINIMUM VALUE 

11095 BEM YH MAXIMUM 

11096 BEM EXIT: 2% -1 (ESC); 0 (INVALID); 1 (INTEGER); Z 
( DE C I M AL ) 

11097 BEM 2 VALUE (IF VALID) 

110 9 9: 

1110 0 GOSUB 10BO0; BEM INPUT NUMBEB 

111 10 IF Z% < 1 THEN BETUBN : BEM ESC OB INVALID 

11120 IF 1 < YL OB 2 > YH THEN Z% = 0. BEM INVALID IF OUT OF BANGE 

11130 BETUBN 

11191 : 

11 IB 2 BEM a* INPUT Y OB N ** 

11193 JEM ENTBY: CUBSOB AND F1LLBB CHABACTEB SET 

11154 BEM EXIT: Z% -1 (ESC); 0 (NEITHEB Y NOB N) ; 1 ( Y) , 2 (N) 

11199 : 



The entry point is line 11100. The entry variables are the same, YL 
and YH for the minimum and maximum values; YW and YF$ for 
field length and field filler. The exit value, Z%, has an added ele- 
ment. It becomes 2 if the number entered contains a decimal point. 
Otherwise, its use is the same as the integer subroutine. 



Y/N SUBROUTINE 



Another "special case" data entry situation occurs when a single 
character is entered. The typical case is shown below: 



DO YOU WANT INSTRUCTION (Y/N) : 



This is a special subroutine that you can use to accept only the 
letters Y or N: 
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1 1 1 9 J : 

1113 2 BEH ** INPUT Y OB N ** 

11193 HEM ENTBY: CUBSOB AMD FILLEB CHABACTEB SET 

J J J i 4 HEM EXIT> Z% -J (ESC); 0 (NEITMEH Y WOK M); J (Y), 2 (W) 
J JJ ii : 

11200 YS = " YH" : BEE USE INPUT SINGLE CHABACTEB ROUTINE 
I i 2 9 i : 

11212 HEM ** INPUT SINGLE CHABACTEB AND HATCH WITH VALID STHING ®® 

11213 BEn ENTHY: CUBSOH AND FJLLEH CHABACTEB SET 

11294 BEE YS STHING OF HATCH CHABACTEBB 

11295 HEM EXIT: Z% -1 (ESC); 0 C CMAHACTEH NOT IN STHING ) ; J < J-TH 
CHJIBJICTEB IN HATCM STHING) 

j j 2 9 9 

11300 YW » J: BEH SET FIELD WIDTH 
11310 GOSUB 10000 

11320 IF 21 s - J OS LEN (ZD = 0 TMEN BETUBN : BEE ESC OB 

J?ETUJ?N ONLY <Z%«0) 
1 1 330 Z% ^ 0; BEH SET NOT HATCHED FL'AG 
11340 FOB 21 s J TO LEN (YS) 

1 1 350 IF 1% = MJDS <Y$ ,Z1 , 1) THEN Z% = 11: BEE HATCH IN POSITION 
21 

11360 NEIT 
11370 BETUBN 



How to Use the Y/N Subroutine 

To use this subroutine to accept only Y for yes or N for no, this is all 
you must do: 

200 YF$ = : REM SET FILLER CHARACTER 

210 GOSUB 11200 

220; 

The exit variable Z% will be set to -1 if the user pressed ESC, to 0 if 
neither Y or N was entered, to 1 if Y was entered, and to 2 if N was 
entered. Your exit test statements might look like this: 

230 IF Z% = -1 THEN 5000 : REM ESC TEST 

240 IF Z% = 0 THEN PRINT : PRINT "PLEASE ENTER Y OR N 

ONLY" : GOTO 200: REM INVALID ENTRY 

250 IF Z% = 1 THEN GOSUB 8000 : REM PRINT 

INSTRUCTIONS IF Y 

260 REM CONTINUE PROGRAM 



SINGLE-CHARACTER SUBROUTINE 



Another subroutine included in the INPUT MODULE allows you to 
enter any single character, not just Y or N. The entry point for this 
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subroutine is 11300. Before you enter the subroutine, you must set 
the filler character (YF$), and this time set Y$ to contain all accept- 
able characters. For example, if you want to accept any single char- 
acter of A, E, I, O, or U, then set your variables like this: 

250 YF$ = 

260 Y$ = 44 AEIOU" 

270 PRINT "ENTER YOUR LETTER: 44 ; 

280 G0SUB 11300 

The exit variable is still Z%, but the values mean different things. 
If Z% is -1, ESC has been pressed. If Z% is 0, the entered character is 
not valid. If Z% is a positive number, that number tells you which 
character number in Y$ was entered. For example, if the user en- 
tered the letter I, then Z% would be 3, indicating the third character 
in Y$ (AEIQU). 



PAUSE OR KEYSTROKE SUBROUTINE 

A common problem in games is how long to wait after the player has 
entered a guess before the program asks for another guess. If the 
program's response is "YOUR LETTER IS NOT IN MY WORD," 
"PLEASE GUESS A NUMBER BETWEEN 1 AND 40," or some other 
phrase, the player needs time to read and digest it before continuing. 
If the pause is too short, the novice player doesn't have enough time; 
too long, and the experienced player gets bored. The Pause or Key- 
stroke Subroutine allows the programmer to pick a pause that will be 
long enough for the novice, but if the player types a keystroke the 
pause immediately ends (usually by asking for another guess) and 
the keystroke pressed will be accepted as part of the next input. 

We recommend that you put this capability into your games and 
let the player discover it; we recommend against trying to explain it 
with additional instructions as it will tend to confuse the novice 
player and clutter the screen. This subroutine can be separated from 
the INPUT MODULE and used by itself in your programs. 
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113B1 : 

J J 3 9 2 BEM PAUSE OH UNTIL KEYSTROKE 

J J 3 9 3 HEM ENTRY: YP LENGTH OF PAUSE IN IOTEHNJIL TIME UNITS 

11 394 HEM 0 WAIT FOH KEYSTROKE ONLY 

11395 HEM EIIT: Z% - 1 (ESC) ; 0 (PAUSE ESP I HED ) ; I (KEYSTROKE 
BEFORE PAUSE EIPIHE D) 

11396 HEM Z KEYSTROKE (ASCII VALUE * 128) 
113 9 9 

11400 POKE - 16 3 6 8,0: HEM CLEAR TYPE-AHEAD 

11410 Zl = 0: HEM INITIALIZE COUNT (* ENTRY FOH GET ONE KEY ») 

11420 Zl = II + 1 

11430 Z = PEEK ( - 16384) 

11440 IF Z ) = 128 THEN Z% ^ 1 - 2 * (Z ^ 155): RETURN : REM 

KEYSTROKE; TRAP FOH ESC THEN RETURN 
1 1 450 I F Z 1 < YP OR YP - 0 THEM 11420 
1J460 Z% * 0: REM PAUSE EIFIRED 



The entry variable YP defaults to zero unless otherwise set. When 
YP is zero, the user must press a key to continue. Otherwise, the 
length of the pause is determined by an internal time unit. You 
should experiment with different time lengths. 

The exit variable Z% sets to -1 if ESC was pressed, to 0 if the pause 
timed out, and to 1 if the user pressed a key before the time was up. 
You can use the latter two items of information or simply disregard 
them. Here are a sample entry and exit variable setting for this 
subroutine: 



300 REM INSTRUCTIONS HERE 
310: 

320 LET YP = 100 
330 GOSUB 11400 
340: 

350 IF Z% = -1 THEN 5000; REM ESC TEST 

360 IF Z% = 0 THEN PRINT "IF YOU NEED MORE TIME, 

CONTACT YOUR INSTRUCTOR" : GOTO 300 

370 REM CONTINUE 



GET ONE KEYSTROKE, NO ECHO SUBROUTINE 



Another common problem in games is how long to wait after dis- 
playing instructions. The difference in reading speeds and familiar- 
ity with the game may require that the player signal the game to 
continue (by pressing a key), rather than the programmer trying to 
guess how long to wait. 
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Both the "Get One Key, No Echo, No Type-Ahead" at line 11500 
and "Get One Key, No Echo, With Type-Ahead" at line 11600 wait 
until any one key is pressed (without also waiting for RETURN) and 
do not "echo" or display the key pressed on the screen. Unlike the 
Pause or Keystroke Subroutine, the key is "thrown away" and will 
not become part of the input. The exit variable Z% is set to -1 if ESC 
was the key, and to 1 if any other key was pressed. The variable Z is 
set to the ASCII value +128 of the key pressed. There are no entry 
variables. 

The difference between these two subroutines involves "type- 
ahead." The APPLE hardware has a one-character "memory" that 
latches the last keystroke pressed. Reading the keyboard involves 
waiting for this latch to be set, then actually reading it, and finally 
clearing it to signal that a key has not just been pressed. (Refer to 
your APPLE II Reference Manual for more details if you wish.) The 
No Type-Ahead Subroutine at 11500 first clears the latch, then waits 
for a keystroke. Clearing the latch first forces the user to press a key 
AFTER the instructions (or whatever) have been displayed and the 
program logic is waiting for the next key. The With Type- Ahead 
Subroutine allows the experienced user to anticipate the pause and 
to avoid it; however, if the novice user inadvertently presses an extra 
key, the pause would also be skipped. We recommend using the No 
Type-Ahead version of this subroutine for this application. 

For those of you who may be interested, a different version of these 
subroutines appears in the version of SIMON in Chapter 7. Notice 
line 3000, which gets the next note and THEN decides where to echo 
it. 

The programs in Chapters 1 through 4 have not used the data entry 
testing techniques described in this chapter. If you plan to use any of 
those earlier programs, you should first merge them with INPUT 
MODULE and add necessary linkage statements to the programs. 



DATA ENTRY SUBROUTINE REFERENCE SUMMARY 

When using these subroutines, it is best to simply merge the entire 
INPUT MODULE with your program. If you use only the Pause or 
Keystroke Subroutine, delete the rest of INPUT MODULE and merge 



ROUTINES FOR ENTERING DATA 87 



only that routine. The entire module does not take that much mem- 
ory space for you to worry about chopping into pieces and merging 
only the pieces you need. Merge it all. It's much easier! 



General-Purpose Subroutine 

Entry point: GOSUB 10000 

Entry variables: YW : field length 

YF$ : field filler (default is blank) 
Exit variables: Z$ : string entered 

Z% : 1 (ESC); 0 (not ESC) 



Input Number Subroutine 

This subroutine must also use the General-Purpose Subroutine. 
Integer Numbers 



Entry point: GOSUB 11000 

Entry variables: YW : field length 

YF$: field filler 

YL : minimum value 

YH : maximum value 
Exit variables: Z : value 

Z% : l(ESC); 0 (invalid integer); 1 (valid integer) 



Decimal Numbers 
ENTRY POINT: GOSUB 11100 



Entry variables: YW : field length 

YF$: field filler 

YL : minimum value 

YH : maximum value 
Exit variables: Z : value 

Z%: -l(ESC); 0 (invalid number); 1 (valid in- 
teger); 2 (decimal number) 
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Y/N Subroutine 

This subroutine must also use the General-Purpose Subroutine. 

Entry point: GOSUB 11200 

Entry variables: YF$ : field filler 

Exit variables: Z% : -1 (ESC); 0 (neither Y nor N); 1 (Y); 2 (N) 



General-Purpose Single-Character Subroutine 
This subroutine must also use the General-Purpose Subroutine. 

Entry point: GOSUB 11300 

Entry variables: Y$ : match characters 
YF$ : field filler 

Exit variables: Z% : -1 (ESC); 0 (char, not in match string); J (Jth 

position in match string) 



Pause or Keystroke Subroutine 

Entry point: GOSUB 11400 

Entry variables: YP : LENGTH OF PAUSE 

Exit variables: Z% : -1 (ESC); 0 (pause expired); 1 (keystroke 

before pause expired) 



Get One Key 9 No Echo 5 No Type-Ahead Subroutine 

Entry point: GOSUB 11500 

Entry variables: none 

Exit variables: Z% : -1 (ESC), 1 (other way) 

Z : ASCII value + 128 of keystroke 
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Get One Key 9 No Eeho ? with Type- Ahead Subroutine 

Entry point : GOSUB 11600 

Entry variables: none 

Exit variables : Z% : -1 (ESC), 1 (other way) 

Z : ASCII value + 128 of keystroke 



CHAPTER SUMMARY 

This chapter has given you the third complete program module that 
you can use when writing your own game programs. It is also an 
excellent subroutine to use when writing programs for any other 
purpose as well. The subroutine gives you complete control over 
what is acceptable data entry by the program user. We will show you 
how we use the data entry subroutine in our game programs that 
follow in the next chapters. 



CHAPTER SIX 

Text°Ba§edl Games 



String variable manipulation, or doing things with text provided by 
the user, is the backbone of some of the "classic" and most interest- 
ing computer games. Although technical advances have provided us 
with color, graphics, and sound, word games continue to be fascinat- 
ing, both to play and to write. 

This chapter discusses word games that take advantage of the text 
manipulation capabilities of your APPLE and also suggests how to 
match the particular game to its intended audience. We will consid- 
er three types of word games — story construction, word guessing, 
and word matching. For each, we will build whole games and then 
discuss the reasons for the particular features included. 



STORY 

STORY asks a series of questions and inserts the answers in a 
previously constructed format. It uses a powerful game design that 
can be modified for any audience. You may recognize our version as 
a variation of the "mad-lib" games popular with school children. 
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10 MEM . . .STORY-INFUT IMAGE. . . 

12 : 
9©7 : 

iSS REM « Ottt-TIME INITIALIZATION «« 

00§ : 

1000 DliJ i?P3 1 10, 10) ; REM Mil I 01 „ i 1 1 J E . JA~ OP ITEMS 

JM EiiCH GPutiP 

1010 DIM NR(J0): HEM ACTUAL i OF I TEMS IN EACH GROUP 
IP? 6 DIM iiS (10): 17EJ2 HM 0 OF ANSWERS 
1197 : 

HSi REM » COVER SCREEN « 

1190 : 

12 00 CI : HOME : C0L0R= 1 5 : GOSUB 15 5 0 0: J? EM WASH 1M WJITE 
1210 COLOIs 6: FOR 1 « 11 TO 33 STEP 11; HEM BLUE LIMES 
1220 ML JN 0 4 3§ AT Z - B 

1 230 ML IN 0,30 AT Z 

13 00 PI PUT 

1250 II = "yRITE":XV = 4:XC(1) = 0; GOSUB 15300 
12S0 US * "A": XV « XV * 11: GOSUB 15300 
1270 IS = "STORY": XV = XV * 11: GOSUB 1 5300 

J2S0 VTAB 23: HTAB 7: FBI NT "FIESS RETURN TO CONTINUE..."; 
1290 GOSUB 115 0 0: HEM WAIT FOB KEYSTROKE 
J 300 IF 2 = =1 THEN END : REM SSC 
J . 1 : 

1SSB HEM «» INITIALIZATION FOB NEIT STORY ** 
19Sg ; 

2 000 TEJT : MOMS 

2010 Z = 51000: GOSUB 1100 0: HEM SET BEAD DATA FOJMTE1 TO RANDOM 

PARTS 

2057 : 

2058 hem » mm pjwjoqh story fahts « 

2D99 : 

2100 HF s 0 

2110 J s 0 

2120 HEAD ZH; HEM * SMAHE LOGIC WITH NEW GHOUF STAHTED 

2200 IF s IF ^ J: HEM NEXT GHOUF OF STORY FAHTS 

2210 J s O REM D '.». FARTS IU CURRENT GJ IUP 

2230 IF ZS = "EaW THEN 2 30'- 

2240 J s J •> 1 

2250 HF$(HF,J) = ZS; HEM SAFE FAHT 

22S0 READ Z$ 

2270 GOTO 2230 

2300 ffJWHF) s J: HEM » OF RANDOM FAHTS IN GHOUF HF 

2310 R E h D ZS ; HEM C,- C r FOS BECOMD "END" 

2 3 20 IF ZS s "END" THEN 2500: HEM NO MORE RANDOM FAHTS 
2330 GOTO 2200: HEM SHARE LOGIC TO BEGIN NEW GHOUF 

2«I7 : 

24 SS HEM « ASIC QUESTIONS AMD SAVE ANSVEHS * 

2^19 : 

2500 MQ x 0 

2510 H TAB 14; PUNT " * a « STOHY 

2520 VTAB 22: KTAB J J: PRINT "PBEBB "; : INVEHSE : FJflJfT "ESC" ; : 

NOAM A L ; PRINT " TO STOP. 88 ; 

26 00 READ OS; REM CHEC1 IF HO RE QUESTIONS 

26 J0 IF OS s "END" THEN 3 000: HEM NO MORE QUEBTIONS 

;:;;20 NO s NO + 1 ; REM ONE MORE QUESTION 

2S30 VTAB 2 & NO * 4: HTAB 1: FRINT OS;" 

2640 W « 30 - LEN (OS); REM MAXIMUM LENGTH OF ANSWER 

2150 GOSUB 10000 

2660 IF Z% = - 1 THEM 6000; HEM ESC 

2B70 IF LEN (ZS) B 0 THEN 2550; f? Eli J TPAP FOR EMPTY &MSWER 

20S0 AS (NO) s Z$: REM SAVE PLP5T AMBHEH 

2630 GOTO 2S90 

2ii7 : 

2SiS HEM « WRITE STOif •* 

5 0 ii : 

3000 HOME : HEM PAUSE BEFORE miTUW. -TOBY 

3010 SPBEDa 111 

3 0 20 VThB 11: WFhD i 

1030 PRINT "HERE IS STOUJ STORY ' » C 7 ) ; " . CH19 (7^ M . CHR$ 

(7) 

?v~'v PPEEDs 255 

305 0 YF s 5 0; COSUI J J 49 0; HEM PAUSE OH UNTIL KEYSTROKE 
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OS! : 

052 REM ft WRITE STORY FROM STORY PARTS IN DATA STATEMENTS * 

053 ISM TRAP FOR WORDS BREAKING IN THE MIDDLE JIT THE END OF A 
LINE 

011 : 

100 L n 3: HEM LEFT MARGIN ( FOE TEIT WINDOW) 
110 W ^ 34: HEM WIDTH 

12 0 T s 4 : HEM TOF LINE 
130 1 ^ 20; HEM BOTTOM 

140 POKE 32, L: HEM SET TEIT WINDOW 
150 HEM WI DTH SETTING IS NOT NEEDED 
ISO POKE 34, T 
170 POKE 35, B 

180 HOME : HEM MOVE CURSOR TO ULHC OF WINDOW 

200 SS ^ "": HEM INITIALIZE SCREEN LINE 

210 READ ZS; REM NEIT STORY ELEMENT 

220 IF ZS ^ "END" THEN 3S00: HEM END OF STORY 

230 IF LEFTS (21,1) = "#" THEN 3 5 0 0; HEM USE ANSWER NUMBER 
SFE C I F I ED 

240 IF LEFTS (Z$ , 1 ) = THEN 3S00; REM USE RANDOM PART FROM 

GROUP SPECIFIED 
300 SS ^ SS ♦ ZS; REM APPEND STORY PART 

310 IF LEN CSS) < ^ W THEN 3210; REM SCREEN LINE NOT YET FULL 
320 Z = W + 1: REM TRY TO BREAK THE LINE AT THE RIGHTMOST BLANK 
POSSIBLE 

3 3 0 REM START WITH THE FIRST CHARACTER BEYOND THE MAIIMUM WIDTH 
3 40 IF Z = J THEN Z ^ W + 1 ; GOTO 3 400; REM NO BLANKS ANYWHERE ; 

USE MAIIMUM WIDTH 
350 IF MIDS (SS, 2,1) = " " THEN 3400; REM FOUND BLANK AT 

POSITION Z 
3S0 2 ^ Z - 1 
37 0 GOTO 33 40 

400 PRINT LEFTS (SS,Z -1); REM BREAK THE LINE AT THE Z-TH 
CHARACTER 

410 IF Z s LEN (SS) THEN 3200; REM NOTHING LEFT OVER 
420 SS ^ RIGHTS (SS, LEN (SS) - Z); REM REST OF THE LINE 
430 GOTO 3310; REM CHECK IF STILL TOO LONG 

500 ZS ^ AS( VAL ( RIGHTS (ZS, LEN (ZD ~ 1))); REM USE ANSWER 

NUMBER SPECIFIED 
510 GOTO 3300 

100 Z ^ VAL ( RIGHTS (ZS, LEN (ZS) - 1)); REM RAMDOM GROUP 
SPECIFIED 

610 ZS ^ RPS(Z,1 + INT (NR(Z) a END (1))); REM PICK ONE 
S20 GOTO 3300 

g00 IF LEN (SS) > 0 THEN PRINT SS ; REM * END OF STORY ~ PRINT 

REMAINING PART * 
910 TEIT ; REM SET FULL SCREEN WINDOW 

9 97 ; 

§98 REM ftft AGAIN? ftft 

99 9 ; 

000 HTAB 1; VTAB 24 

010 PRINT "ANOTHER STORY (Y OR N) ? " ; 
020 GOSUB 11200; REM Y/N 

030 ON Z% ♦ 2 GOTO 110 0,1000,2000,1100; REM ESC, INVALID, Y, N 

100 PRINT ; PRINT 

110 PRINT "THANKS FOR PLAYING."; 
120 END 
0 9 9 1 ; 

0992 REM * RANDOM STORY PARTS, ENDING WITH "END 89 ft 

0993 REM EACH GROUP ENDS WITH "END" 

0994 REM TO OMIT RANDOM GROUPS , '51000 DATA "END", "END"' 
0 9 9 9 ; 

1000 DATA "ON HALLOWEEN,", " ONE DARK NI GHT ," , "END"; REM ft 
RANDOM 1 ft 

1010 DATA "RUNNING", "SITTING", "SKATING", "END"; REM * RANDOM 

2 ft 

1020 DATA "AT THE SEASHORE", "IN THE MOUNTAINS" , "IN A HAUNTED 

HOUSE", "TO SCHOOL", "IN THE DESERT", "END"; REM * RANDOM 3 * 
103 0 DATA u MEhED'\ "NOTICED", "END"; REM ft RANDOM 4 ft 
1040 DATA "SLIMY", "HUGE", "FUZZY", "FURRY", "END"; REM * RANDOM 

5 » 

51050 DATA "KISSED", "PINCHED", "PLAYED CHESS WITH", "SKATED ALONG 
WITH", "READ STORIES TO", "END"; REM ft RANDOH 6 ft 
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S1OB0 DATA 1 THEM ILL SOME BIRTHDAY CAKE", 

IN A HELICOPTER", "SANG THEM A LULLABY" , "END" : 
DATA "IMD": REM END BAND OM GROUPS 



" F I E\J TMIM AWAY 
REM * RANDOM 7 * 



51070 

51991 
51992 
SISSi 
52000 
52010 
52020 
52030 
52040 
5 2050 
S2ISJ 
52SS2 
52SS3 
52114 
52§95 
52996 
52907 

5 2§ ee 

S3000 
53010 
53020 
53030 
53040 
53050 
53060 
53070 
S30S0 
53010 
53100 
60000 
S0010 
60D20 



REM » QUESTIONS, ENDING WITH "END" « 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

" REM 

HEM 
REM 
REM 
REM 
REM 



"WHAT 8 S YOUR tt'tf-IE?" 

"WHAT'S YOUR FAVORITE COLOR?" 

"WHOM DO YOU LOFE?" 

"WHAT A IE YOU AFRAID OF?" 

"MHO'S YOUR BEST FIIIMD?" 

"END" 

« STORY, EMDING ¥ITH "END"* 
T Y F I S Of DATA; 

11 DMUM1ER" = PRINTS WISHER NUMBER 

"QNUMB R 10 PRINT OME FROM RANDOM GROUP MU El 
"END" s END OF STORY (DOESN'T PRINT) 

ELSE = PRINT AS TE1T STRING 



DATA 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



WIRE 



AND 



6 0 5 s 



°02° 



" A " , M 05 88 ( 
" " , " # 4 " 
. THE " 
82"," " s "#4" 

ALMOST ","«" , 
#3" 

AND " , "97" 
END" 



"03" , " . AIL OF A SWEDEN THEY 50 



THEM BUT ALONG CAME 



REM » COPYRIGHT 1981 BY HOW1RD FBANlillM< PALO ALTO , CA « 



Merge this with INPUT MODULE and IMAGE MODULE. SAVE it as 
STORY and RUN it. 

This is the original STORY program, rewritten to include INPUT 
checking and screen formatting for the Apple. STORY was written at 
the Community Computer Center and first appeared in print in 1976 
in an early People's Computer Company newspaper. Developed for 
use with teletypes, STORY was designed to be fun and also to be a 
good language exercise for beginning readers. Notice that the ques- 
tions ask for very personal answers. Children remember these per- 
sonal responses easily, so it is not difficult for them to "read" the 
story the computer displays. STORY differs from other mad-lib 
games by asking for answers to specific questions rather than for 
parts of speech. 

Unlike more traditional games, STORY has no winner or loser. 
Hence, older children and even adults find it an enjoyable, non- 
threatening introduction to computers. In fact, STORY can easily be 
turned into an introduction to programming for more sophisticated 
players. After several runs of the program, players see a pattern in 
the story construction and begin to understand what the program is 
doing. You might want to explain how computer programs work, 
basing your explanation on their experience with STORY. 
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Notice that the questions are constructed so that the players can 
answer either with one word or a longer phrase. If the answers match 
the questions grammatically, they will fit properly into the follow- 
ing story structure. However, the length of the answer is limited. 
Examine line 2640. 

1. What would happen if you changed a question so it became 
thirty-five characters long? 



2. How would you change the program to ask different questions? 



1. The answer would be limited to three characters. 

2. Change the data statements in lines 52000 through 52050. 

Breaking words arbitrarily at the end of a line and continuing the 
word on the next line is called wraparound. Wraparound can be 
unpleasant, yet many text-based programs suffer from it. A routine 
included in STORY avoids wrapping words around the screen. The 
routine checks for spaces (ends of words) and breaks the line at a 
suitable spot. You may want to use this routine in other programs 
you write. 

What part of the program handles the problem of screen wrap- 
around? 



Lines 3310 through 3430 

Consider changing STORY to suit your particular audience. Be 
sure to match the wording, content, and length of the story to the 
reading ability and/or sophistication level of your intended audi- 
ence. 
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Here's how to change the text part of the story. Look at lines 50000 
through 51070. They contain the randomly selected phrases for the 
story. Each series of phrases ends with the word "END" followed by 
a REM. (The "END" is required; the REM is, of course, optional.) 

5,1000 DATA U 0N HALLOWEEN, " , n 0NE DARK 
NIGHT, " , "END" : REM *RAND0M1* 

Line 51000 indicates that only two choices are possible for random 
phrase 1. 

Our program has seven sets of phrases. 
How many phrase choices are there for phrase 3? 



Line 51020. Four choices. 



You can change the text of the story by changing these phrase 
choices. Be careful to use the same format used in the program. 

Changing the format of the story is a little more difficult. The code 
for the story is as follows: <« 



5 2 992 
52993 
5 2 9 9 4 
5 2 9 9 5 
5 2 9 9 S 
5 2 9 9 7 
5 2 999 
5 3 0 0 0 
5 3 0 1 0 
5 3 0 20 
5 3 0 3 0 
5 30 4 0 
5 3 0 5 0 
5 3 0 S0 
5 3 0 7 0 
5 3 0 8 0 
5 3 0 9 0 
53100 



REM 

HEM 
REM 
R EM 
REM 
HEM 

DATA 
DATA 
DATA 
DAT£ 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



* STORY, ENDING WITH 
TYPES OF DATA: 

" #NUJ1BER" 

" §NUMBE J?" 

"END" 



■END" * 



ELSE 

WERE » 
84",' A 
0 Z " < " " 
. THE " 
#2%" " 

ALMOST 
03" 

AND " < 
END" 



PRINT ANSUEB NUMBER 

PRINT ONE FROM RANDOM GROUP NUMBER 
END OF STORY (DOESN'T PRINT) 
PRINT AS TEXT STRING 



AND 



'#5' 



"§2" , ' 
" , "§5' 

"#4" 



, "§3' 



ALL OF A SUDDEN THEY 



"0 4" 



THE Ft BUT A LONG CAME 



@7" 



Lines 52994 through 52997 tell you how to make the story, fol- 
lowed by the format of the current story that you played. To cause 
the user-entered answer to display on the screen, use the @ symbol, 
followed by the question answer number, as shown in line 53080. 
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The user's third response will be printed in response to the DATA in 
line 53080. 

To select one of the random phrases, use the @ symbol, followed 
by the group number of the phrases. Line 53000 above will cause the 
selection of one of the random phrases labeled "random 1" in line 
51000. Anything else in your story will print as you type it. Notice 
the words in lines 53020 and 53070. You end the story by typing 
"END," as shown in line 53100. 

You will find that matching story phrases to question responses 
takes practice and experience. The more you do, the better your 
stories will be. Your friends of all ages will enjoy your stories. 



BLOCKOUT 

BLOCKOUT has its origins in a game called Hangman. An earlier 
version, called SNAKE, was designed at the Community Computer 
Center and published in People's Computer Company newspaper, 
along with STORY. SNAKE, written for teletype printers, was origi- 
nally intended to incorporate Hangman's educational potential, yet 
eliminate the waste of paper caused by redrawing the gallows, the 
inherent gruesomeness of the game, and the relatively fixed number 
of tries until failure. 

BLOCKOUT preserves the spirit of SNAKE while making use of 
the graphic capabilities of your APPLE. 
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JO REM . . . BLOCXOUT-INPUT SOUND IMAGE... 
J J : 
S97 : 

iSS REM ** ONE-TIME IWITI All ZAT1 ON « 
ill : 

1000 DIM ¥01(50) 

10 10 ML = II: REM MAXIMUM LSNGTH OF SECRET ¥ORD 

1020 HG B 8: REM H0RI20NTIL Til FOR GtJISS 

1030 HC B HG + ML * J: REM H0RI20NTAL TAB FOR CLUI 

1040 VG = 21: REM VERTICAL TAB FOR GtJISS 

1050 VC =, VG: REM VERTICAL TAB FOR CLUI 

1100 NV s 0: ISM * COUNT THS UQRDS AMD ST01E THEM IN WDSCJ) » 
1110 2 s S1000: GOSUB 11000: RIM RIAD DATA FROM LINE 51000 
1120 RIAD 2S 

1 J 30 IF 21 = °°IND°° THIN 1 20 0: RIM NO MORI WORDS 

1140 JF ISM CZ S ) > ML THSN 1120: RIM THROW AWAY WORD IF TOO LONG 
1150 NV = NV ♦ 1: RIM ONI MORE ¥ORD 
1110 WDICNV) = II 
1170 GOTO 1120 

120 0 NG s 10: ISM DIFAtJLT f OF INCORRECT GUSSSSS 
1210 GU B 15: RIM UPPER BOUND ON S OF GUISSIS 

12 20 GL a 5: RIM LOVER BOUND 

13 0 0 DIM 11^(15,1): REM H/V POSITIONS OF THS BLOCKS 
1310 1H b 2: RIM HORI20NTAL WIDTH 

1320 IV = 3: RIM VERTICIL HEIGHT 
J3I7 : 

1318 RIM * COVIR SCRIIN * 

1399 : 

1400 GR : HOMI : COLOR^ 1: GOSUB 155 00: RIM WASH IN RID 
1410 COLORS 0: FOR J = 1 TO 10: RIM RANDOM BLOCKS IN BLACK 

1420 IH = INT (37 * RND (1)) * 1 : IV b INT (31 * RND (1)) * 1: RIM 
RANDOM ULHC 

1430 FOR Z = 0 TO 2: HLIN XH,XH ♦ 1 AT IV * 2: NS1T 
1440 NUT 

14S0 IC(1) s 15:iV = 12:28 s 10 BLOCJC 10 : GOSUB 1S300 

1460 XV 3 IV + IB ♦ 2:11 * "OUT 10 : GOSUB 1S300 

1470 . VTAI 23: HTAI I: PRINT "PRSSS RETURN TO CONT JNUS . . . " ; 

1480 GOSUB 11500: REM WAIT FOR ISYSTROKE 

1410 IF Z% = =1 THSN SND : RSM SBC 

1909 GOSUB 1000: RSM INSTRUCTIONS 

Hi 7 : 

1999 RIM *« INITIAL J 2 ATI ON FOR NUT GAME ** 
1999 : 1 

1000 IF MW = 0 THEN S800: RIM MO MORI WORDS 
2010 2 = INT (NV f RND CD) ♦ 1 

10 20 S¥S s VD $ ( Z ) : RIM PICi ONI OF THI UNUSID WORDS 

2030 WDM!) a yDiCNW): REM RIPLICE THE CHOSEN "SLOT 10 WITH THE LAST 
UNUSED ¥ORD 

1040 NV = NV - J : RIM AND RIDUCI THI SIZI OF THI UNUSID WORD LIST 
BY 1 

2100 LI s "": ISM INITIALI2S LS,U$,Cf € AND BIS 
2J10 HI = 
2120 CI = 

21 30 FOR J s 1 TO 26 

2140 LI = Li * CHRS < 9 4 ❖ J): REM NUT LETTIR OF THI ALPHABIT 
215 0 US = US + 10 10 : RIM ONI MORI BLANK 
2180 CS b CS * 10 - 10 : RIM ONI MORI » 
2170 NS1T 

2110 C9 = LIFTS (CS, LIN <SV*)): RIM SHORTIN CLUIS TO LINGTH OF 
SICRIT WORD 

2110 BLS x US + US: RIM 5 2 BLANK'S 
2300 GOSUB 9500. RIM SITUP 

2117 : 

2118 RIM ** NUT GUISS ** 

2111 : 

30 00 VTAB VG: HTAB HG 

3010 Y¥ b 1: GOSUB 10000 

3020 IF Z% b =1 THIN 1200: RIM ISC 

§030 IF 2S < 10 A 00 OR ZS > "Z" THIN 4 700: REM NOT A LETTIR OF THI 
ALPHABIT 

310 0 RIM CHIC1 IF LETTIR HAS ALRIADf BUN GUISSID 

3110 2 b ISC (ZS) - ISC ( "A") *> 1: RIM POSITION IN US 

3120 IF MIDI (US,Z,1) < > 10 10 THEM 4g00: RSM ALREADY USSD 
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3130 REM UPDATE IS AND US AMD DISPLAY 

3M& SPECIAL CASE FOB STUNG FUNCTIONS IF FIRST 01 LIST 

CHARACTER 

3J 50 If Z a 1 THIN L$ > ss ss ♦ BIGHTS (L$ ,25) : US » ZS + BIGHTS 
(US ,25) 

3180 IF I ^ 21 THEM II * JLEFTS (11,25) + " " :US - LEFTS CU$,25) * 
ZS 

3170 JF 1 ) I 1MB Z < 28 THIN IS a LEFTS <L0, 2 - J) * " " ♦ BJCMTI 
(L$,2S - 2) :US 

3 LEFTS <U$,Z - 1) ♦ ZS ❖ RIGHT! CUS,2§ - 2) 
31S9 VTAB 23: HTAB HG: PRINT P§ 
3190 HTAB HG: PRINT LS ; 
3397 : 

339B REM CHECK If LSTTSfl IS IN THE WORD 
3 3 9 9 : 

3600 J? EM SUBSTITUTE ML OCCURRENCES IN CO CCiUI) OF THE GUESS , IF 
ANY 

34 J0 REM DUE TO LIMITATIONS OF THE STBING FUNCTIONS, C0 IB REBUILT 

OME LETTER AT A TIME 
3420 Zl S = 

3430 FOB J s J TO LEN CSW$) 

3440 Z2S = MIDI (SVS , J, 1) : REM NEXT SECRET LETTER 

3450 IF ZS = Z2S THEM Z1S = 21% * Z$: REM GUEBB MATCHES A SECRET 
LITTER 

34S0 IF Zl { > Z % 0 THEM Zi 8 « Z1S * MIDS (CS, J, J) : REM MO MITCH , 

USE INFORMATION FROM CLUE 
30-70 ME?,? 

34S0 IF Z1S s CS THEM 4 0 0 0: REM CLUE HAS MOT CHAMGED SO GUESS IS 
INCORRECT 

3490 CS 3 ZJS: REM A COBRECT GUESS ; UPDATE CLUE MID DISPLAY ( ENTRY 

FOB CORRECT VOHD GUESSED) 
3500 VTAB VC. HTAB HC . FEINT CS ; 
3510 GOTO 5000 

3997 : 

REM ** INCORRECT GUESS *» 

3 9 9 9 : 

4000 J = NB 

4010 FOR X = 1 TO 8 : REM Flik&H LAST BLOCK 
402 0 J = NB 
0030 GOSUB S30O 

40 40 YP = 2: GOSUB 114 0 0: REM PAUSE 
40 5 0 J s ME 

4060 GOSUB B4O0: REM ERASE LAST BLOCK 
4070 NE1T 

4100 NB s NB - 1 : REM ONE LESS BLOCK 

4110 IF Ml ) 0 THEN 3000: REM BLOCKS STILL LIFT 

4120 GOTO 8200 

45 97 ; 

4598 REM * ERRORS * 

4599 : 

4B0O Zl = "THAT LETTER HAS ALREADY BEEN TEIEB" : REM ALREADY GUESSED 
4610 GOTO 4100 

4 700 ZS = "PLEASE GUESS A LETTER FROM A TO Z" . REM NOT ALPHABETIC 
4891 : 

#8 92 REM * DISPLAY EEBOB MESSAGE MD PAUSE * 
4893 REM ENTRY: ZS MESSAGE TO DISPLAY 
4 S 9 9 : 

4900 VTAB 22: HTAB 20 - LEN (ZD J 2: REM CENTER 
4910 INVERSE : PRINT ZS;: NORMAL 
4920 YF = SO: GOSUB 11400: REM PAUSE 

4930 HTAB 1: PRINT LEFTS <BL$ , 40) : REM CLEAR EBBQB LINE 
4 9 40 GOTO 3 0 00: REM NEST GUESS 
4917 ; 

49 9 S REM ** CORRECT GUESS ** 

4 9 9 9: 

5000 IF CS = S¥S THEM 310 0: MEM »« CORRECT GUESS « 
5010 REM CORRECT LETTER BUT WORD NOT YET QVEBBEB 

5020 VI = 0:W2 = 1 :W3 = 0 : W4 = 10:¥5 = - 1 : V6 = 5 0 : V7 = 2: GOSUB 
13400 

5030 FOR X s 1 TO 15 

5040 J ~ INT (NB * RMD (1 ) ) + 1: REM PICK A RANDOM BLOCK 

5 05 0 GOSUB 8300: REM AND CHANGE ITS COLOR 
SOB0 NE1T 

5070 GOTO 3000: REM NEIT GUESS 
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100 WD = 1 0 0 : Z $ = SWS: GOSUB 1 3 3 0 0. REM « GOT THE SECRET WORD * 

110 FOB 1 = 1 TO 4 

12 0 FOB J s 1 TO NB: GOSUB 8 40 0: NEXT 

130 FOB J s 1 TO NB : GOSUB 8 3 0 0: WEST 

140 NEXT 

150 GOTO 1000: HEM AGAIN? 

997 ; 

SB© HIM AGAIN? ^« 

see : 

0 00 POiE 34,22: HOME JIM CLEM fTOS-3 
010 VTAB 24: HTAB 1 

0 2 0 PRINT "FLAY AGAIN (Y OR N) ? " i 
0 3 0 YPO = " " : GOSUB 11 200: REK Y / I'J 

0 40 ON ZSb * 2 GOTO 6100,6000,2000,6100: 1EM ESC, INVALID, ¥, N 
100 PRINT : PRINT 

110 PRINT "THANKS FOR FLAYING."; 
120 END 

197 : 

198 REM * QUIT * 
JiS : 

2 00 VTAB 22: HTAB JJC - 14 

210 INVERSE ; PBINf "THE WOBB WAS : ";SW§: NOHMAL 
220 GOTO S00O 

7S7 : 

7 IS REM * NO MORE WORDS * 

799 : 

8 00 HOME 

810 FB INT 

8 20 PBIN7 "YOU HAVE USED ALL THE SECRET WORDS" 
830 GOTO SI 0 0 
997 : 

SS8 REM as BLOCK ROUTINES 

9S9 : 

0 00 POIE 3€,20 : HOME : REM ** SET UP BLOCKS « (CLEAR TEXT LINES) 
010 COLORS 0:'FOR Z ■ BT TO 39: HLIN 0,39 AT Z: NE1T : REM CLEAR 

BLOCK AREA 
020 FOR J = 1 TO NB 

030 GOSUB 8100: REM LOCATE AND DI5FLM NEIT BLOCK 
040 NEXT 
05 0 RETURN 

10 0 H s INT ( ( 40 - Bff) s RND (1)): REM a LOCATE AND DISPLAY h 

BLOCK BELOW TITLE f 
110 REM J = BLOCK I 

120 REM DO NOT ALLOW BLOCK TO BE "TOO CLOSE" TO BLOCKS 1 ( ...,J-1 
130 V = INT ((39 - B V - BT) * RND (J)) * BT 
140 IF J = J THEN 8210: REM FIRST BLOCK LOCATED 
150 FOR Z s 1 TO J = 1 

ISO IF ABS ( BK% ( Z , 0 ) - H) > BH OR IBS (BK%(Z,1) - V) > BV THEN 

820 0: REM NOT TO O CLOSE 
170 H = INT ((40 - BH) * RND ( 1 ) ) : REM PICK A MEW LOCATION 
180 V = INT ((31 - BV - BT) * RND (1)) * BT 
190 2 = 0: REM AND BEGIN "CLOSENESS" CHECK AGAIN 
200 NEIT 

210 BK%(J,0) ^ H: REM H-PDS OF BLOCK J 

220 BK%(J,1) s V: REM V-POS 

2!I0 REM FILL THROUGH TO DISPLAY A BLOCK 

300 C = INT (15 * RND (1)) + 1: REM * DISPLAY A BLOCK * 
310 REM J= BLOCK # 

320 COLORS C: REM SOLID BLOCK (ENTRY FOR EBABE BLOCK) 
330 H = BK%(J,0): REM H-POS 
340 V = BK%( J,l): REM V-POS 

350 IF SCHN( H,V) = C THEN 8300: REM PICK ANOTHER COLOR IF SAME 

AS BEFORE 
360 FOB Z = 1 TO BH 

370 VLIN V,V ♦ BV =1 AT H + Z - 1 
3^0 NEIT 

3 SO RETURN 

400 C * 0: REM ® EBABE A BLOCK * 

410 REM J = BLOCK # 

420 GOTO 8320: REM SHAHE CODE 

500 J = INT (NB * RND (1)) * 1: REM ® MOVE A BLOCK ® 
510' REM ERASE A RANDOM BLOC1, OVERWRITE THE BLOCK WITH THE "LAST" 
BLOCK , 
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520 REM THEN LOCATE AND DISPLAY A NEW " LIST" BLOCK 
5 30 GOSUB 840 0: REM EE ABE THE CHOSEN BLOCK 

540 BK%CJ ( 0) = BK% (NB , 0 ) : HEM OVERBITE BLOCK J WITH THE LAST BLOCK 

550 BX%(J,1) ^ BK%im,l) 
5 SO J = NB 

5 70 GOTO 810 0: BEM LOCATE AND DISPLAY A NEW LAST BLOCK 

997 : 

99S BEM as IMSTRUCTIONS ** 
Bii : 

000 TEIT : HOME 

010 FEINT "BLOCKOUT IS A WORD GUESSING GAME." 
020 PRINT 
030 PB1NT 

040 PBINT "THE COMPUTE!? PICKS A SECBET WORD AMD" 
050 PRINT "DISPLAYS A DASH FOB EACH LETTER." 
060 PBINT "(A B-LETTER SECBET MOID GETS 6 DASHES.)" 
070 FEINT 

0S0 PHI NT "TRY TO GUESS THE LETTEIS." 
090 PRINT 

100 FJUNT "EACH CORRECT GUESS IS SHOWN IN THE" 
110 PRINT "SECMET WORD. EACH INCORRECT GUESS" 
J 20 FHINT "MAKES ONE OF THE BLOCKS DISAPPEAR. " 
130 PRINT 

140 FEINT "YOU BEGIN WITH ";.NG;" BLOCKS. TBY TO GUESS" 
150 PRINT "THE SECBET WORD BEFORE THE? DISAPPEAR . M 
ISO PI1MT 

170 PRINT "PMESS " INVEMSE : PRINT "ESC";: NORMAL ; PRINT " TO 

QUIT. " 
180 PRINT 

190 PRINT "PRESS 1ETURN TO CONTINUE. . . " ; 
200 GOSUB 11500: RIM WAIT FOR KEYSTROKE 
210 IF Z% = - 1 THEN 6 1 0 D . BEM ESC 
300 GR : HOME ; REM TITLE 

310 IS = "BLOCK" : 1C ( 1 ) = INT (15 * RND ( 1 ) ) 4- 1 :1V a 0: GOSUB 

15300: REM TITLE 
320 II = "OUT" : IV = JIV * JIB * 1 : GOSUB 1 53 0 0 

3 30 BT s IV + IB * 1: REM TOP OF BLOCK ARE.A 
340 RETURN 

4 97 : 

498 REM ** SETUP ** 
49 9 : 

500 NB « NG: REM # OF BLOCKS 

510 GOSUB 8000: REM SET UP BLOCKS 

520 VTAB VG: HTAB HG - 1 : FBINT " GUESS : " ; 

530 VTAB VC: HTAB HC: FEINT C $ 

540 PUNT 

55 0 PI I NT "USED: " ;U$ 
560 PRINT "LEFT: " <L$ ( 
570 RETURN 

0937 : 

0 998 REM ** WORDS ( ENDING WITH "END" *« 
0 9 9 9 : 

1000 DATA "STRATEGY" , "MONOLITH" , fi EZi^SFERATE " , "ASP" 
1010 DATA "TABLOID" , "LICHEN" , "TENT" < "ASTOUND" 
1020 DATA "VARY" , "QUIZ" , "SYCOPHANT" , "INLET" 
1030 DATA "SYLPH" , "INFINITE" , "GOAL" , "PIANISSIMO" 
1040 DATA "OIYGEN" , "WILT" , "TRUISM" , "CEBEBBAL" 
1050 DATA "BRAVERY" , "BARB" , " AUGER" 
10 90 DATA "END" 
0 0 0 0 : 

0 010 REM * COPYRIGHT 1BB1 BY HOWARD FRANKLIN, PALO ALTO, CA « 
0 0 20 : 



Merge this with INPUT MODULE, SOUND MODULE (delete lines 
18000 through 19999), and IMAGE MODULE. SAVE it as BLOCK- 
OUT. RUN it. 
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BLOCKOUT makes effective use of low-resolution color and 
movement. The words are drawn from a word list written in DATA 
statements in lines 51000 through 51090. You can change or add to 
the list of word choices. You have a maximum of fifty word choices 
(see line 1000.) Be sure to leave line 51090 as a "flag" to the computer 
that there are no more words. Currently, the game permits ten wrong 
tries. 

How would you change the program to make the wrong-try limit 
six? 



1200 NG = 6 

Notice that BLOCKOUT uses the ESC convention introduced in 
the previous chapter. To end the game and see the mystery word, 
players press ESC and then RETURN. 

The colored blocks are placed at random on the screen, and colors 
are assigned to them at random. 

How would you change the program to make the blocks all orange? 



8300 COLOR = 9, and delete line 8350 

Look at the routine that begins at line 8100. This routine carefully 
checks to be sure that blocks are not placed too closely to one 
another, a truly elegant addition to the program that helps create a 
pleasant-to-look-at screen image. 

Currently, the wrong answer makes one of the blocks flash colors 
and then disappear. 

Where and how does the program make the block disappear? 
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In lines 8400 through 8420. Then in lines 8300 through 8390 the 
block is colored black. 

In many graphics games, the four-line text window at the bottom 
of the screen is not used to full advantage. Questions tend to scroll 
off the screen, leaving no information for the player who forgot what 
to do. In BLOCKOUT, the clues (letters used and letters remaining) 
stay on the screen. Only the question is refreshed. This is one way 
the four-line text window can be used effectively. In general, you 
should try to design the screen so that relevant clues remain visible 
throughout the game. 

Did you notice as you played BLOCKOUT that only correct 
answers received the positive sound response? Incorrect answers 
changed the screen, but did not receive a positive sound. Reinforc- 
ing positive responses and ignoring, when possible, negative re- 
sponses is a good technique to use when writing educational games. 

Look carefully at the cover screen routine that begins at line 1400. 
You might think that all the activity on the screen requires a lot of 
program code. However, because IMAGE MODULE is so well- 
designed, we needed to do little actual programming to create a very 
attractive screen. When you look at the other programs in this book, 
notice how little programming code was needed to create the attrac- 
tive cover screens. 



MATCH 

MATCH is a solitaire game that can also be played by several people 
taking turns. The object of the game is to match all the word pairs. 
Players can exit from the game at any time by pressing ESC and then 
pressing the RETURN key. When designing MATCH, we chose not 
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to display the correct answers when the player chooses to end the 
game. By the process of elimination, a player can always "win" 
MATCH, so there is no need to give the answers. One of the nice 
things about the ESC convention in INPUT MODULE is that the 
programmer retains complete control over the effect of pressing 
ESC. 



JO HEM ...MATCH-INPUT SOUND IMAGE... 
1 1 : 
9 9 7 

998 REM ** ONE-TIME INITIALIZATION ** 
9 9 9 

1000 ' DIM L% ( 50) ( RS ( 50) , L%( 50) , R%< 30) 
1010 BLS = 

J020 FOB J = J TO 4 0 
1 0 3 0 BL % = BLS * " " 
1040 NEXT 

HDD 2 = 51000: GOSUB 19 0 0 0: BEN SET BEAD DATA P01NTEB 
1110 BEAD HL,HJ?,CS 

1120 Z = HB - HL - LEN ( CS ) . IF Z i 2 THEN HOME . PRINT "CONNECTING 

WORD DOES NOT FIT": END 
1130 IF 2 i 2 < > INT (Z / 2) THEN HB = HB - 1 . BEM FOBCE SAME # 

OF SPACES ON BOTH SIDES OF CONNECTING WORD 
1140 HC = INT ( (HL + HB) J 2) 
1150 V0 = 2 
116 0 VS = 2 

1200 NP = 0: BEM INITIAL12E VOBD PAIBS 
1210 BEAD Z$ ,Z1 $ 

1220 IF Z$ = "END" OR 215 = "END" THEN 13 00: BEN NO MORE PAIBS 

1 2 3 0 NP = NP * 1: REM ONE MORE PAIR 

12 4 0 L% ( NP ) f Z I 

1 2 5 0 R $ ( NP ) = Z 1 $ 

12 60 GOTO 1210 

130 0 NB = 8. REM 8 BOWS 

1 3 9 7 : 

1398 REM * COVER SCREEN * 
1 3 9 9 : 

1400 GR : HOME : COLOR= 13: GOSUB 15 5 0 0: REM WASH IN YELLOW 
1410 XS * "MATCH" . XV = 1D.XCU) = 2: GOSUB 1 5 3 0 0 

1 4 20 1$ = "V" + CHR$ (1.) * CHBS (2) + " CH " : XV = 4 0 - XV - XB.XC(l) 

= 7: GOSUB 15 300: REM MIRROR IMAGE 
14 30 VTAB 23. HTAB 8: PBINT "PBESS RETURN TO CONTINUE...", 
1440 GOSUB 11500. REM WAIT FOR KEYSTROKE 
1450 IF 2% = - 1 THEN END : REM ESC 
1900 GOSUB 9000: REM INSTRUCTIONS 

1 9 9 7 : 

1998 REM ™ INITIALIZATION FOR NEXT GAME ** 

19 9 9 

2 0 0 0 FOR J = 1 TO NP 

2010 L%(J) = - J. REM SET FLAG FOR INITIALIZING DISPLAY 
2020 NEXT 

2030 N = NP: REM SCBAMBLE ALL THE PAIRS 
2040 GOSUB 2900 

20 5 0 N = NB REM USE THE FIRST NR 
2060 FOR J = 1 TO N 

2 0 7 0 R%( J) = L % f J ) : BEM COPY TO B%f 1 , . . . , NB ) 
2080 NEXT 

2090 GOSUB 2900: BEM SCBAMBLE THE SAME PAIRS FOB THE LEFT SIDE 
2200 GOSUB 9 5 0 0: BEM INITIALIZE THE DISPLAY 
2210 GOTO 3000 

2900 F0BZ=N70 2 STEP - 1 . BEM SCBAMBLE L%( 1 , . . . ,N) 

2 910 Z% = Z * BND { 1 ) + 1 

2920 Zl = L%(Z) 

2S30 L%( Z) = L%( Z%) 

2940 L%(Z%) = Zl 

2950 NEXT 

29 50 RETUBN 
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2 9 9 7 : 

Z 99 8 EEM ®* CHOOSE NEXT PAIE *® 
2999 

3000 FOE Z = J TO N 

3010 VTAB V0 ♦ VS * (NE - N + Z): EEM BUILD # MENU 
30 20 HTAB HC: FEINT Z , 
3030 NEXT 

3100 OPS = "PICK A NUMBEE OF A WOED ON THE LEFT . " 
3 1 10 GOSUB 3500 
3120 PI = J 

3130 INVEESE . EEM DISPLAY LEFT STEING IN INVERSE 
3140 GOSUB 8600 
3150 NOEMAL 

32 00 DPI = "NOW PICK A NUMBEE FEOM THE EIGHT: " 
3210 GOSUB 3500 

3220 P 2 = J 

3230 INVEESE : EEM DISPLAY THE EIGHT STEING IN INVEESE 
3240 GOSUB 8800 
3250 NOEMAL 

3300 FOE Z = 1 TO N: EEM CLEAE I MENU 

3310 VTAB V0 * VS * (NE - N * Z): EEM V-POS 

3320 HTAB HC: EEM H-POS 

3 3 3 0 FEINT » " < 
3340 NEXT 

34 00 IF L%(P1) < > E%(P2) THEN 40 0 0: EEM PAIE DOESN'T MATCH 
3 410 GOTO 5 00 0: EEM A MATCH 

3 4 91 : 

3492 EEM * COMMON CODE TO PI CI A STEING * 
3 493 EEM ENTEY : OPS PEOMPT 
3494 EEM EXIT: J CHOICE 

3 4 9 9 : 

35 0 0 VTA3 22: HTAB 1: FEINT DPI, 

3 510 YL = l.YH = N.YU = I: GOSUB 11000 
35 20 IF 21 = - 1 THEN 6J00 
3530 IF Z% = 0 THEN 3800: EEM INVALID 

3540 J = 2 

3550 HTAB 1: FEINT LEFTS (BLS,39); 
3560 EETUEN 

3800 Oi = " PLEASE PICK A NUMBEE FEOM 1 TO " + STEI (N) 

3810 P = B0 

3820 GOSUB 3900 

3830 GOTO 3500. EEM TEY AGAIN 

38 9 1 : 

3892 EEM * DISPLAY MESSAGE LINE * 

3893 EEM ENTEY: Ql STEING TO DISPLAY 
3 8 94 EEM P PAUSE 

3 8 9 9 : 

39 00 VTAB 24: HTAB 20 - INT ( LEN (Q 5) J 2) 
3910 INVEESE : FEINT OS;: NOEMAL 

39 2 0 YP = P. GOSUB 11400. EEM PAUSE 
3930 HTAB 1: FEINT LEFTS (BL$,39); 
394 0 EETUEN 

3997 • 

3990 EEM ** PAIE DOESN'T MATCH ** 

3 9 9 9 : 

4000 YP = 10 

4010 IF PI = P2 THEN 4400. EEM LEFT, EIGHT LINED UP 

40 2 0 IF P2 < PI THEN 42 0 0. EEM MOVE EIGHT SIDE DOWN F I EST 
4030 UD = J: EEM MOVE LEFT BIDE DOWN ONE 

4040 GOSUB 8000 

4050 GOTO 4010 

4200 UD = 1: EEM MOVE EIGHT SIDE DOWN ONE 

4210 GOSUB 8200 

422D GOTO 4010 

44 00 IF PI = N THEN 4 S 0 0 : EEM LEFT, RIGHT LINED UP AT THE BOTTOM 

4410 UD = 1 EEM MOVE BOTH SIDES 

4420 GOSUB 8400 

4430 GOTO 4400 

4600 Wl = 0:W2 = 5. W3 = 0 . W4 * 1 0 : W5 = 1 : W7 = 1: GOSUB 13400 

4 610 Ql ^ NOT A MATCH **" 
4620 F = 60 

4630 GOSUB 3900 

4640 J = PI 

4650 GOSUB 8600: EEM DISPLAY IN NOEMAL 
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4660 COSUB 8800 

4S70 GOTO 3000 

43 97 : 

4 9 9 8 HEH ** FAIR HATCHES ** 

49SB : 

5000 yp = jo 

5018 if pi = p2 them 5400: j?eh left t bi ght lined up 

5020 IF P2 > PI THEN 5200; REM HOVE BIGHT S I DE UP FIBST 
5030 UD ^ - 1 : HEM HOVE LEFT SIDE UP ONE 
5040 GOSUB 8000 
50 50 GOTO 5010 

52 0 0 UD s - 1: HEM HOVE If I GHT SIDE UP ONE 
5210 GOSUB 8200 
S220 GOTO 5010 

5400 IF PI s 1 THEN 5600: HEH LEFT , B I GHT LINED UP IT THE TOP 
5410 UD 2 - 1 : HEM HOVE BOTH SIDES 
5420 GOSUB 6400 
5430 GOTO 5400 

5600 VI = 0.W2 = 5.W3 = 0 : V4 = 1 0 . V5 = = 1 : W7 = J: GOSUB 13400 
5S10 VTAB V0 ♦ VS * (MB = N * 1 ) : HEH LEFT, BIGHT ON TOP LINE 
SS20 HTAB HC - INT ( LIN CCS) / 2) 
5630 IUVEBBE : PHI NT C I ; : NOHMAL 
5640 Z$ = U(WU)) 
S0SB 210 = RG<mbU>> 

5700 FOB J e E * J TO HC - INT ( IEH <C6) / 2) - J: IEH HOVE THE 
VOIDS TOGETHER 

S7J0 HTUB J - LEN (2$) - 1: PHI NT " ";: INVEBSE : PBINT 2$ ; : NOBHAL 

5710 HTAB HH + HL - J: INVERSE : PBINT 21S;: JfOHHAL : PBINT " " ; 
SO J NE1T 

5S00 Ql - " YOU FOUND A HITCH! " 

5010 P e (3 0 
SS20 GOSU1 3§00 

5830N.N-1: HEH ONE LESS PA IB 

IF N s 0 THEN 5900: IEH FOUND THEH ALL 
585P F01J = J TO W: HEW MOVE THE LIST BOIM OMC 
OOS0 L%CJ) s L%CJ * J) 
5S70 B%£J) s fl%(J * 1) 
5© Si MS ST 
S00 0 GOTO 00 0 0 

5900 VTAB 21 : HTAB 7: PUNT "YOU FOUND A LL THE HATCHES! ! " 

5 9 07 : 

5990 HEH ** AGAIN! *• 
SISS : 

S0 0 0 HTAB 1: VTAB 20 

§010 PHI NT "PLAY AGAIN (Y OH N) ? 

6020 GOSUB 11200: HEH Y/M 

S030 ON Z% * 2 GOTO S 1 0 0 , S 0 0 0 , 20 0 0 # S 1 0 0 : J? EM ESC, INVALID, Y , N 
0100 PHUTF : FHIMT 

6110 PUNT "THANKS FOH PLAYING. " ; 
6120 END 
7S§7 : 

7SS8 SEM «« HOVE HOUTINES «« 
7iiS : 

0000 Z s Lft(PJ): HEM HOVE LEFT SIDE DOMM/UP ONE 
101 0 HEH UD a -1 UP, +1 DOWJ 
8020 L%(PJ) a L%(Pi + UD) 
6030 L%(F1 t> UD) s 2 

6100 J = PI: BEH DISPLAY NEW LIFT J 

8110 GOSUI 870 0: HEH BLJOT 

§120 GOSUB 8 6 0 0: IEH THEN DISPLAY 

8130 J s Fl + UD:P1 a J: HEM HOVE CHOICE 

81#0 GOSUB 8700: HEH BLANK 

8 15 0 INVEH5E * 

§i§0 GOSUB 8600: HEH THEN DISPLAY IN IMVEHSE 
0170 mmhh 

0100 GOSUB 11600: HEH PAUSE 
819 0 IB TURN 

0 2 00 Z = mhiPZ) : HEH HOVE SIGHT SIDE DQVMJVP ONE 
8210 HEH UD ~ -1 UP, + 1 DOWN 

§220 1%(P2) = H%(P2 * UD) 
8230 JTMP2 * UD) a Z 

83 00 J * P2: HEH DISPLAY NEW HI GHT J 

S31.0 GOSUB 8S00: HEH BLANK 

0320 GOSUB 9800: HEH THEN DISPLAY 



TEXT-BASED GAMES 107 



30 J = F 2 UD : F 2 s J: REM MOVE CHOICE 
#0 GOSUB 1100: REM BLANK 
50 JJWEBSE 

B0 GOSUB 1100; HEM . THEN DIBFLM IN INVEBBE 

7 0 NORMAL 

10 GOSUB li#00: REM PAUSE 

S0 RETURN 

00 Z s L%(FJ): REM MOVE BOTH SIDES 

10 REM UD = -1 UP, DOWN 

20 LtHFJ) s L%.(PJ ♦ UD) 

30 L%(Pi + UD) « Z 

#0 Z s RtHFJ) 

50 R%(F1) ■ R%(F1 * UD) 

10 R%(P1 * UD) > Z 

70 J a Fi 

10 gosub 1700 

50 GOSUB 1900 
00 GOSUS SS00 
J0 GOSUi 8800 

20 J m PI * PD.-PJ s J: REM MOVE ROW 

530 GOSUB 1700 

540 GOSUi IS00 

550 IJWERSE 

5 0© GOSUi IB00 

570 GOSUi 8800 

510 mmi&i 

550 GOTO J 1400: MEM PAUSE 
397 : 

551 REM * DIBFLM ROUTINES * 

58S : 

00 Zf = Lf(L%CJ)): REM DIBFLM LEFT STRING AT ROW J 

10 HTAB HL - LEN (ZD: REM H-POS 

20 GOTO 8820 

00 1% s LEFT! ( BL i , HL - 1): REM BLANK LEFT STRING AT ROW J 

10 GOTO 8110 

00 2% = R0«R%(J)): REM DISPLAY RI GMT STRING AT ROW J 

10 HTAB MR: REM H-FOS 

20 VTAB V0 * VS * (NR - N * J): REM ENTRY FOR LEFT STRING 

30 PRINT Zl , 

#0 RETURN 

00 Zl a LEFTI (BLI,40 - MB) : BEE BLANK RIGHT STRING AT ROW J 

J0 GOTO 1810 

57 : 

51 REM « INSTRUCTIONS 

Si : 

0 0 TEIT : MOMS 

10 VTAB 4 

20 HTAB 14: PRINT MATCH 

30 PRINT 

#0 FBINT 

50 PRINT "THIS IS A MATCHING GAME." 

10 PRINT 

70 PRINT "YOU DECIDE WHICH ITEM ON THE LEFT" 

10 PRINT "MATCHES AN ITEM ON THE RIGHT. MATCH" 

S0 FBIM7 "THE ITEMS BY TYPING TMEIB NUMBERS . 11 

00 FBINT 

10 PRINT "WHEN YOU MATCH ALL THE ITEMS, YOU WIN?" 

20 VTAB 20 

30 FBIUT "FBEBB ";: INVERSE : FBIUT "ESC";: NORMAL : FBIUT " TO. 

GIVE UP. " 

#0 FBIUT 

50 FBIUT "FBEBB RETURN TO CONTINUE..."; 

B0 GOSUB 11500: REM WAIT FOR KEYSTROKE 
70 IF 21 , =1 THEN 1100: REM ESC 

8 0 RETURN 
87 ; 

58 REM * IUITIALI2E THE DIBFLM * 
IS : 

0 0 HOME 

10 HTAB HC - 2: INVERSE : FBIWT "MATCH": NORMAL 

20 FOR K = 1 TO NR: REM RANDOMLY DISPLAY THE PAIRS 

3 0 J s INT (NR •* RND (J)) * 1: REM DISPLAY A NEW LEFT PAIR 

#0 IF L%(J) > 0 THEN S530: REM ALREADY DISPLAYED , TRY AGAIN 

50 L%(J) = - L%(J): REM FLAG AS DISPLAYED 
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§580 GOSUB SSOO; REM DISPLAY LEFT FAIR 

§570 J ^ INT (NR * HND CD) * 1: HEM NOW DISPLAY A NEW BIGHT PAIR 

§580 IF J?%( J) > 0 THEN §570: HEM ALREADY DISPLAYED, TRY AGAIN 

9590 H%(J) « = HfHJ): HEM FLAG AS DISPLAYED 

§600 GOSUB SBOO; REM DISPLAY BIGHT FAIR 

§510 NEIT 



S S 2 0 


RETURN 


2 010 0 


DATA 


% 1- REM INVESTED A 


2 0110 


DATA 


II j J ll 


2 012 0 


DATA 


"1 1 " 


2 013 0 


D.ATA 


" 1 1 1 1 J " 


2 014 0 


DATA 


II J j ii 


2 015 0 


DATA 


"1 1 " 


2 0 1 S 0 


DATA 




2 017 0 


DATA 


II J 19 


2 0 1 B 0 


DATA 




2 0 2 0 0 


DATA 


^ 7- HEM TMVFHTFF1 T 


2 0 210 


DATA 


n j n 


2 0 2 2 0 


DATA 




20230 


DATA 


1 " 


20240 


DATA 


•i i .1 


20 250 


DATA 




2 0 2 6 0 


DATA 




20270 


DATA 


"11111" 


20280 


DATA 


" - 1 " 


4§ §§7 






4§§§8 


BEE 


ttft wag I ABLE CONVENT I QMS as 


4 § S § § 






5 0 0 0 0 


BEE 


L <1 f J ) LEFT STRING OF Fill ( R I CHT JUSTIFIED) 


5 0 010 


REM 


p § (j) BTf„MT ^TPTMf. OP pi 7 1 if IF FT .III ^T Y F T F in ) 


5 0 0 2 0 


HEM 


L%(J) LEFT STRING S IN J~TH ROW 


5 0 0 3 0 


REM 


J?%( J) RIGHT STRING S IN J-TH HOW 


50040 


REM 


NP S OF PAIRS 


50050 


HEM 


NR S OF ROWS INITIALLY 


50010 


HEM 


N # OF ROWS LEFT 


50070 


HEM 


HL H-FOS * 1 OF RIGHT EDGE OF LEFT COLUMN 


50 08 0 


HEM 


HR H-FOS OF LEFT EDGE OF RIGHT COLUMN 


500S0 


HEM 


HC H-POS OF CENTER 


50100 


HEM 


V0 V-FOS OF "ROW 0" 


50110 


REM 


VS © OF VERTICAL TABS BETWEEN ROWS 


50120 


HEM 


BLI BLANKS 


50130 


REM 


PI FIRST PICK 


50140 


HEM 


PI SECOND 


50§§O 






50§§1 






50§§2 


' HEM 


®» MATCHING DATA MUST BEGIN AT LINE 51000 «* 


50§§3 






50§94 


' HEM 


H-FOS * 1 OF RIGHT EDGE OF LEFT COLUMN 



50§§5 HEM H-FOS OF LEFT EDGE OF RIGHT COLUMN 

50§§S REM CONNECTING WORD (MUST FIT BETWEEN COLUMNS) 

50S§7 REM PAIRS 1 , . . . ,NP 

50§§B REM END, END 

50§§§ ; 

51000 DATA 14,27, "MATCHES " 

51010 DATA "ACCELERATE" , "SPEED UP" , "FURTIVE" , "CONCEALED" , "ZEALOT" , 
"HOTHEAD" 

51020 DATA "AUSTERE" , "STERN" , "COEBCE" , "COMPEL" , "MENDACIOUS" , "LYING" 
51030 DATA "IMPLACABLE" , "BELENTLESS" , "TRUCULENT" , "FIEBCE" , "GRAVE" , 
" SOL EM M " 

51040 DATA "PACIFIC" , "CALM" , "EITOL" , "LAUD" , "MUNIFI CENT" , "LAVISH" 
51050 DATA "OBDURATE" , "STUBBORN" < "INFALLIBLE" , "PEBFECT" , "INDIGENT", 
"FENUHIOUS" 

510S0 DATA "INDIGNITY" , "INSULT" , "BEPLENISH" , "BEFILL" , "BETICENCE" , 
" BESEBV E " 

51070 DATA "BELISH" , "SAVOR" , "BEPBISAL" , "RETALIATION" , "IMPROVIDENT" , 
"THRIFTLESS" 

510 80 DATA "MALADROIT" , "TACTLESS" , "IRKSOME" , "TEDIOUS" , "TEPID" , 
"LUKEWARM" 

510§0 DATA "HAMLET" , "VILLAGE" , "PLAUDIT" , "COMMENDATION" , "CHAGRIN" , 
"MOHTIF I CATION" 

51100 DATA "UBIQUITOUS" , "OMNIPOTENT" , "SURMISE" , "GUESS" , "MOROSE" , 
"GLOOMY" 
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51110 DATA "QUEHULOUS" , " COMPLY JMJNG " , "TBACTABLE" < "AMENABLE" f 

" ALTEBCA7 I ON " t "OVABBEL" 
51120 DA7A "HOMILY" , "SEBHON" < "CBYFTIC" < "OBSCVBE" < "ADIPOSE" < " F.ATTY " 
51 J 30 "DUPLICITY" , "HYPOCBISY" , " BE C IME " < " BULE " < "TENACITY" < 

"PiiHSJST/iUCE" 
51SSS DATA "END" , " END" 
B 0 0 0 0 : 

§0010 BEE « COP YB J GMT 1981 BY HOW£BB FBAMKL IN f $ALO ALTO, CA ® 
S0020 . 

Merge it with INPUT MODULE, SOUND MODULE (delete lines 
18000 through 18999), and IMAGE MODULE. SAVE it as MATCH. 
RUN it and enjoy. 

MATCH makes use of full-screen formatting and inverse video. 
Although it is entirely text-based, it is an attractive game to watch. 
MATCH is also designed to be helpful to the player. The relevant 
instructions remain in view at all times because the text never 
scrolls out of the text window. Finally the program uses very sophis- 
ticated text-moving techniques that make text appear animated (see 
lines 8000 through 8910). 

MATCH is a friendly game and a good example of sound educa- 
tional design. Error messages are helpful; the right answer receives a 
more signficant response than the wrong one, and the successful 
matches remain in view, reinforcing the correct answer. (Incorrectly 
matched pairs drop to the bottom of the list.) 

MATCH makes effective use of the screen. The centered design is 
both attractive and space-saving. The use of inverse video reinforces 
the correct answers. Moving the text blocks keeps the player's atten- 
tion on the screen and the reinforcing value of seeing the matched 
pairs move and stay together is greater than when lines are drawn (as 
in a workbook). 

Other nice touches in MATCH include the following: The word 
list is continually renumbered to reflect the number of remaining 
words, and at the beginning of each new run of the program, words 
are drawn at random from the DATA pairs and presented in scram- 
bled order. 

MATCH can be easily expanded by changing the contents of the 
DATA statements. However, the greatest power of this program is 
that it is a completely generalizable matching game. Not only can 
synonyms be used, but so can any set of text or numeric pairs. Notice 
in line 51000 that the center word (in this case, MEANS) is in a 
DATA statement. You can insert states and capitals, equations and 
their sums, rhyming words or opposites, and, in each case, use a 
relevant center word. 
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Below are examples of "win" screens of two possible modifica- 
tions of MATCH: 



CA 


CAPITAL 


SACRAMENTO 


PA 


CAPITAL 


HARRIS BURG 


LA 


CAPITAL 


BATON ROUGE 


AZ 


CAPITAL 


PHOENIX 


ME 


CAPITAL 


PORTLAND 


NY 


CAPITAL 


ALBANY 


NE 


CAPITAL 


LINCOLN 



COLT 


IS 


A YOUNG 


HORSE 


CUB 


IS 


A YOUNG 


LION 


GOSLING 


IS 


A YOUNG 


GOOSE 


FAWN 


IS 


A YOUNG 


DEER 


LAMB 


IS 


A YOUNG 


SHEEP 


DUCKLING 


IS 


A YOUNG 


DUCK 


PUPPY 


IS 


A YOUNG 


DOG 



To use these word matches, replace the DATA statements in lines 
51010 through 51999 with new DATA statements that incorporate 
these words. For example, 

51010 DATA "CA" , "SACRAMENTO" , "PA", 
"HARRISBURG" 

You can include as many as fifty pairs of words. The game will 
randomly select only eight pairs (see line 1300). You may also have 
to change the center word in line 51000 so that it makes sense with 
the new words in your current word list. 
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CHAPTER SUMMARY 



This chapter showed three complete text-based games and discus- 
sed how to make simple variations to tailor them to your particular 
audience. The games use the modules presented earlier in the book 
and exemplify the style and user-friendly attitude we have been 
discussing all along. The next chapter will give you some even more 
exciting games that make use of graphics. 



CHAPTER SEVEN 

AddMmal Games 



This chapter discusses three computer games that incorporate some 
of the special features introduced earlier in the book. 

CONCENTRATION, drawn from the familiar card game of the 
same name, is an image-based game that lends itself well to the 
low-resolution graphics of the APPLE. However, this version of 
CONCENTRATION is entirely new and allows for substantial, yet 
easy, modification to create various difficulty levels. 

STARS is a number-guessing game. The program takes advantage 
of the computer's quick calculation capabilities. We designed this 
special version of the game to show off the APPLE'S color graphics. 

Our version of the popular SIMON game uses sound, LO-RES 
color, and a scrolling text window. 



CONCENTRATION 



CONCENTRATION is a solitaire game, although it can be played by 
several players taking turns. In a typical game, play continues until 
all the cards are matched. When the game ends, all the cards are 
displayed face up. 
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JO BEM . . . CONCENTBATI ON- INPUT IMAGE... 

11 : 

SB 7 : 

SD8 BEM " ONE-TIME INITIAL IZATION *« 

S99 : 

10 01 DIM PB%(12,1 ) c CD%(2 4) , N% ( 2 4 ) , V% ( 2 4 ) , CF%( 6 , 1) 
1010 MP = 12: HEM MA X 1 MUM • OF PAI BS OF CAHDS 
1020 MC e 6: BEM COLOB PAIBS 

1 030 BEM MODIFY THE CAHD TYPE DISPLAY BOWTINES AT 8300 ,... IF CH OB 
C¥ CHANGED! ! 

1040 CM s 4: BEM HOJUZONTAL WIDTH - 1 OF A C1BD 
1050 CV s 6 : HEM VERTICAL HEIGHT - 1 

1100 FOB J = 1 TO 24: BEM INITIALIZE CABD LOCATIONS 
JU0Z%=<J-1)7 6 

1120 H%(J) = (J - 1 - 6 « Z%) * 6 * 2 

1130 V%(J) = Z% * 10 

1140 NEXT 

1 200 DIM SLS (3 9) 

1210 SL0 o »» 

1 220 FOB J s 1 TO 3 S 

1230 SLS = BLI + 18 " 

12. 3 0 HE IT 

12 97 : 

1298 HEM ft COVEB SCBEEN ft 

1291 : 

1 3 00 G B : HOME : FOB J = 1 TO 24: GOSUS 8000: NEIT : HEM DISPLAY 
CABDS FACE DOWN 

1310 XS = 1:1H « H%(1) :XV = V%(1):2$ & " CON" : 1C ( 1 ) = 14: GOSUB 1540® 

1 3 20 IH = H%< 8) :XV = V%CS):X$ = " CEN" : GOSUS 15400 

1330 IH = H%US):XV ^ V%U6):X§ ^ "TEA":. GOSUS 15400 

1340 IB s 2:XH = H%<20):XV ^ V%C20):XI = "TIO": GOSUS 15400 

1350 XH s H%<2 3) :X$ ^ "N" : GOSUS 15400 

13S0 VTAB 23: HTi^S 7: PBIMT "FBESS BETUHN TO CONTINUE ... 11 ; 
1370 GOSUB 11500: HEM WAIT FOl KEYSTBOKE 

13 80 IF Z% » =1 THEN END : HEM ESC 
14S7 : 

14SS IBM * PABAMETEBS FOl THIS GAME * 

1499 : 

1500 NT ^ 4: HEM 8 OF CAHD TYPES THIS GAME 
1510 NC = 4: HEM # OF COLOR PAIRS 

1520 NP s I: HEM § OF PM BS OF CABDS 

1 5 30 LC$ « CHBS ( ASC ( " A " ) -1*2* NP) 
1100 GOSU1 9 000: BEM INSTBUCTIONS 

1197 : 

1SS8 HEM ** INITIALIZATION FOH NEXT GAME ** 
1SSS : 

2000 IF NT * NC < NP THEN TEXT : HOME : VTAS 11: HTAS 2: FBI NT 
"NOT ENOUGH CAHDS . CHANGE 15 00=1520.": END : HEM * CAHDS WILL 
NOT SE UNIQUE * 

2010 N s 15 

2020 FOH J a 1 TO N: HIM INITIALIZE COLOHS 
20 30 CD%(J) = J 

2040 NUT 

2050 GOSUS 2900: BEM SCBAJ1BLE THE COLOHS 

2080 FOH J s 1 TO NC: MEM SELECT THE FIBST 2»NC COLOHS 

2 0 70 CP%(J,0) B CD%(2 * J - 1) 
2080 CF%(J,1) ^ CD%(2 * J) 

20S0 MEET 

2100 N ^ NP: HEM 0 OF CAHD PAIHS 

21 10 FOH J 3 1 TO N: BEM INITIALIZE CUB TYPES AND JIB HAN CEMENTS 
2120 PB%( J,0) s NT ft HND (1) ♦ 1: HEM BELECT Tf PE FOH PAIH J 
2130 PB%(J,1) ■ NC ft HND CI) * 1: HEM SELECT COLOHS FOH FA IH J 
2140 IF J = J THEN 2200 
2150 Z m 0 

2100 FOH K s J TO J - J: BEM FORCE PMS TO IE DIFFEHENT FHOJf 
FHEVIOUS FAISS 

2170 IF PB%(J,0) * PH%(K € 0) AND PH%(J € 1) . PB%(X,J) THEN Z a 1: HEM 

SET FLAG FOH SAME FAIH 
2180 NEXT 

2130 IF 2 > 6 THEN 2120: 1EM SELECT THE PAIH AGAIN 
2200 CD%(2 * J - 1 ) s J : HEM TOO CAHDS FOH PAIH J 
22Ji CD%( 2 ft J) s J 

2 2 2 0 NEIT 

2230 GOSUI 9500: HEM INITIALIZE THE BI&PL-U DBFOFE SCBLJ5BLIMG 
THE CUDS 

2300N^2«NF: HEM • OF CAHDS TO BE USEB 
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2310 G0SU1 2900: HEM SCHAM1LE THE CAHDS 
2320 TH s 0 : HIM I OF TUHNS 
2400 GOTO 3000 

2§00 FOB 2 = N TO 2 STEP - J: HEM SCHAMliE CD%( J 
2010 Z% » Z • HND (1) 4- 1 

2120 21 a CD%(2): HEM EiCMANGE TWO ELEEEMTB 

2030 CD%(Z> a CD%<Z%> 

2940 CD%iZ%) = 21 

2950 MEIT 

2960 HETUHN 

29S7 : 

2998 HEM ** SELECT WEW PAIH " 

2 ill : 

3000 OPS a "PI CI 1 CAHD: " 
3010 QM ■ 10 

3020 PI a 0: HEM At LOU ANY -VALID PICK 
3030 GOSU1 35 00: HEM FICK A VALID CAHD 
3040 J F J s 0 TMEM 5200 
3050 PI = J: HEM FJHST PICK 
3100 OPS x "A BECOMD: " 
3110 QM s 28 

3120 GOSU1 1500: HEM PICK ANOTMEH VALID CAHD 

3130 J F J s 0 'TMEM 5200 

3140 P 2 s J : HEM SECOND PICK 

315 0 TH 3 TH 4- 1 : HEM ONE MOHE TUHN 

3200 V7AB 23: HTAB 10: PHJMT LEFT! ( BL S , 3 0 ) : HEM BLANK PHOMPT LINE 
3210 IF CD%(P1) ( > CD%(P2) TMEM #000: HEM CAHDS DO MOT MAT CM 
3220 GOTO 5000: HEM A HATCH 

3411 : 

3412 HEM * COMMON CODE FOH PICKING CAHDS « 

3413 HEM ENTHY: OP I PHOMPT 

34 94 HEM QM MOHI2 0NTAL TAB FOH PHOMPT 
3495 HEM EXIT: J CAHD S 

3498 HEM 0 ESC 

3497 HEM HOUTINE FOHCES h NON-MATCMED CAHD TO BE SELECTED 
349S HEM DOES NOT ALLOW PI TO BE FICKED 
3419 : 

3500 VTA1 23: MTA1 QM: PHINT OPS; 

3510 Y¥ a 1: GOSU1 10000: HEM INPUT ONE CMAHACTEH 

35 20 IF 2% m - 1 THEN J = 0: HETUHN : HEM ESC 

3530 IF 2S < "A" OH 2S > LCI TM EN 3700: HEM LETTEH IS NOT IN HANGE 
3540 J s ASC <ZS> - ASC ("A") 4- 1 

3550 IF CD%< J) < s 0 OH J s PI TMEN 3100: HEM CAHD MAS ALHEADY 

BEEN SELECTED 
3560 " GOSU1 8200: HEM DIBFLAY THE CAHD 
3570 HETUHN 

3597 : 

3598 HEM * ALHEADY PICKED * 

3 5 99 : 

3S00 01. s "THAT CAHD WAS ALHEADY FICKED" 
3il0 GOTO 3710 
3697 : 

3198 HEM * FICK A VALID LETTEH * 

3599 : 

3700 Ql = "PICK A LETTEH FHOM A TO " * LCI 

3710 P » 60 

3720 GOSUS 3900 

3730 GOTO 3500: HEM THY AGAIN 
3S91 : 

3892 HEM * DISPLAY MESSAGE LINE * 

3893 : 

3891 HEM ENTHY: 01 STHING TO DIBFLAY 
BBSS HEM P PAUSE 

3S99 : 

3900 VTA1 24: MTA1 10: PHI NT OS ; 
3910 NOHMAL 

3S20 YP a P: GOSU1 11400: HEM PAUSE 

3930 MTA1 10: FHIJfT LEFTS <BLS,2B);: HEM BLANK MESSAGE LINE 
3910 HETUHN 
3997 : 

39 98 HEM * CAHDS DO NOT MATCM * 
3991 : 

#000 OS a "» NO MATCH • 
4010 P a 150 
#020 GOSU1 3900 

4100 J = PI: HEM TUHN CAHD 1 FACE DOW 
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10 GOSUB 1000 

20 J s P2: BEN TURN CARD 2 FACE DOWf 
30 GOSUB 1000 

40 GOTO 3000: HIM PICK JlffOTHER PAIR 
B7 : 

11 BEN * CARDS HATCH * 

01 ; 

0 0 OS * 81 YOU FOUOT A PAIR ** 

JO FLASH 

20 F s JS0 

30 GOSUB 3000 

3 0 J a PJ: BEE BEHOVE CARD 1 
B0 GOSUB 5S00 

7 0 J = P 2 : BEE REMOVE CARD 2 
80 GOSUB 3900 

0 0 N s N = 2: HIM TOO LISB CARDS 

JO IF N > 0 THEN 3000: HEM CARDS REMAINING 

00 GR : MOMS : HEM BIBFLM THE ORIGINAL BOARD 

J0 VTAB 21: JMVSHSS 

20 IF N > 0 THEN HTAB 9: JMVSHSS : PRINT "MSHS MME THE CABDB . . . " : 
NORMAL 

30 IF N » 0 THEN HTAB 2: PRINT "YOU MATCHED ALL THE PAIRS IN " { TB ( 
" TURNS . " : NORMAL 

00 FOB J B J TO I * MP: HEM BIBFLM THE CABDB FACE UP 

J0 GOSUB 8200 

20 NEIT 

30 GOTO 6000: BEN AGAIN? 

0 0 GOSUS 99 00: HEM REMOVE CARD J 

J 0 PRINT " " i 

20 GOSUS 8 J 0 0 : REM EBABE CARD 

3 0 CDfHJ) b ~ CD%(J): REM FLAG CARD AS MATCHED 

40 RETURN 

17 : 

SB REM , " AGAIN? 

9 9 : 

0 0 HTAB J: VTAB 2 4 

J0 FBIUT "FLAY AGAIN ( Y OR N) ? 

20 GOSUB JJ200: REM Y/N 

30 ON Z% $ 2 GOTO 6 J 0 0 , 6 0 0 0 , 2 0 0 0 , 6 J 0 0 : REM ESC, INVALID, Y, N 

0 0 PRINT : PRINT 

10 PRINT "THANKS FOH FLAY IMC . " ; 

2 0 END 
97 : 

11 REM * DISPLAY CARDS ROUTINES * 

9 9 : 

00 COLORs J: REM * DISPLAY CARD J FACE DOWN 

J0 GOTO IJJ0 

00 COLORS 0; REM * EBABE CARD J 

J 0 H s H%(J) 

20 V = V%(J) 

3 0 FOR Z > H TO H * CH 
40 VLIN V,V * CV AT Z 
50 NEIT 

6 0 RETURN 

00 Z% a ASS (CD%(J)): REM DISPLAY CARD J FACE UP 

J0 REM MODIFY DRAWING ROUTINES IF CH t CV CHANGED 

20 REM EXIT: Z% PAIR 0 OF CARD J 

30 H = H%( J) : REM H-POS 

4 0 V s V%(J) : REM V-POS 

30 CJ b CP%(PR%(Z%, J) ,0) : REM COLOR J 

60 C2 » CPfHPRfMZffe, J), J): REM COLOR 2 

70 ON PR%CZ% < 0) GOTO 13 0 0,1400,1500,1600: REM DIBFLAY CARD TYPE 

00 FOR Z = H TO H ♦ J : REM TYPE J * 3 V=STRJPES 

10 COLORs CJ 

20 VLIN V t V * CV AT Z 

3 0 VLIN V,V ♦ CV AT Z ♦ 3 

40 NEIT 

50 COiORe C2 

60 VLIN V,V + CV AT H * 2 

7 0 ' RETURN 

00 FOR Z b V TO V ♦ J : REM TYPE 2=3 H-BTBIFEB 

J0 COLORS CJ 

20 HLIN H , H ♦ CH AT Z 

30 HLIN H,H * CH AT Z * 5 

40 COLORe C2 

50 HLIN H i H * CH AT Z * 2 
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HBO MLIM H , H + CH AT Z ♦ 3 

3470 MEIT 

148 0 BETUBM 

3S00 FOE 2 B H TO H ^? STEP 2; BEM TYPE 3=5 V-STBIPES 

3 5 J 0 COLOB= CI 

95 20 VLIM V,V + CV AT 2 

53 0 VLIM V f V * CV AT 2 ♦ 2 

540 COLOBs C2 

i 5 5 0 VLIM V,V * CV AT 2 ♦ 1 

S5S0 NEXT 

157 0 BETUBM 

3S 00 F OH 2 = V TO V ♦ 3 STEP 3; BEM TYPE 4 = 5 M-STBIPES 

i S J 0 COLOB= CI 

i S2 0 MLIM H , H 4- CM AT 2 

1130 MLJI>3 M,M * CM AT 2 ❖ 3 

1840 COLOB^ C2 

3S50 MLIM M 3 M * CM AT 2 + 1 

i i i 0 MLIM H „ H + CM AT 2 + 2 
1870 WEfT 

1880 BETUBM 

3IS7 : 

1996 HEM «« IMSTBUCTIOMS ** 

1999 ; 

10 00 TEXT : MOME 

1010 PBIMT "COMCEMTiATIOM IS A MEMOBY GAME." 

10 2 0 PHI NT 

1030 PBIffT "PA IBS OF CABDS ABE MIXED UP AMD TUBNED" 

5040 PBJMT "OVEB. YOU TBY TO FIMD TME PA J BS . n 

3050 PBIMT 

5OS0 PBJMT "TME CABDS ABE ABBAMGED ACCOBDIMG TO" 

5070 PBIffT "TMIS BIAGBAM: " 

1080 JMVEBSE : 2 = 17 

1010 MTAi 2: PBJMT "ABCDEF" 

SJ00 MTAi 2: PBJMT "GMJJIL" 

U10 BEM MTAS 2: PBJMT "MMOPOB" 

112 0 REM MTAi 2: PBJMT "STUVWX" 

U3 0 MOBMAL 

1140 PBJNT 

1150 PBJMT "SELECT A CABD BY TYPJMG A LETTEB f BOM A" 

USD PBJMT "TO ";LCf;". (IF YOU WAMT TME TOP LEFT CABD," 

1170 PBJMT "TXPE A. ) 

H80 P1IMT 

UI0 PBJMT "YOU MAY SEE OMLY 2 CABDS AT OME TIME." 

^200 PBIMT "UHEM YOU MATCH CABDS „ TMEY D J SAPPEAB . " 

U10 PBJMT 

5220 PBJMT "TMEBE JS MO GUESS LIMIT." 

12 3 0 PBIMT 

1240 PBIMT "FEEBB " ; : IMVEBSE : PBIMT "ESC";; MOBMAL : PBIMT 

" TO OUIT. " 

1250 PBIMT 

I2S0 PBIMT "FEEBB BETUBM TO COMTIMUE... " ; 

1270 GOSUB 11500: BEM WAIT FOB KEYSTBOKE 

1280 IF 2 Sb s =1 TMEM §100; BEM ESC 

1210 BETUBM 

§497 : 

HIS BEM HI1EB SCBEEM LOWBES SETUP ** 

I4SS : 

15 0 0 GB ; MOME 

1510 FOB J = J TO 2 « MP 

1520 GOSUB 8000; BEM B1BFLM CABD FACE DOWN 

5530 MEXT 

1540 VTAB 21; MTAi 10; PBIMT "EACM LETTEB BEPBESEMTS A CABD." 

1550 p MTAB 10: PBIMT "TBY TO MATCM TME PA I BS . " 

55 SO IMVEffSE 

1570 FOB J * I TO 2 * MP 

1580 GOSUB 1100 

1510 PBIMT CMBI ( ASC ("A") =1 * J) ; 

IS00 MEIT 

IS 10 MOftMAL 

IS 20 BETUBM 

5 9.0 0 Z* = (J - J) / 6: BEM LOCATE CABD J IM LETTEB TEMPLATE 

5910 VTAB 21 * Z% 

ii 20 MTAB J-l-6*Z%+2 
19 30 BETUBM 

19 997 ; 

19 99 8 BEM ** VABI ABLE COMVEMTIOMS ** 
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50 000 


J? EH 


PR%< J , 0 ) 


CARD TYPE OF PUB J 


S 0 0 1 0 


REM 


PB% ( J t 1 ) 


COLOR PA J B OF CUD J 


g A A A A 


REM 


CP%( A , 0 ) 


COLOR i OF COLOB yiUis h 


5 0 0 30 


REM 


tafia. ? \ 


COLOB 2 OF COLOB PA IB \\ 


59 040 


HEM 


CD% C J ) 


PUB 0 OF J-TM CM-;D J I l^WATCHED 


50050 


MEM 




- PAIR § JF Ml 1 iDY MAT CHI D 


f? £li IB, ft* IrS 

5 0 III 0 


BEM 


U% ( J ) 


8_»ftra» c ?ft?\B i; v=iir ofte7 c i? a i?ftft.t c f=> a ra v 

MOBIZOMTli POSITION Of CABB J 


6? &b R ^ R 


REM 


V% C J 1 ) 


l/Ifl ? I CM 


30 000 


BEM 


NT 


i OF CARD TYPES ACTIVE 


5 0 0 3 0 


BEM 


HC 


# OF COLOR PUIS ACTI VE 


50100 


B1M 


MP 


ORIGINAL B OF FAIRS 


c n i i n 


id L>J 8 


IC$ 


LETTER OF LAST CARD 


50J20 


REM 


N 


# OF CARDS STILL UNMATCHED 


50130 


1EM 


CH 


HOUXOHTAL WIDTH OF A CARD 


5 010 0 


1EM 


CV 


VERTICAL HEIGHT OF A CARD 


50150 


BEM 


TI 


d of rmm 


50110 


BEM 


PI 


FIRST PIC1 


50170 


BEM 


f 2 


SECOMD 


g@0O§ 








QQ§1 0 
S0i2§ 


' IBM 


* COPYRIGHT 1981 BY HOWARD FRANKLIN, PALO ALTO 



Type it and merge with INPUT MODULE and IMAGE MODULE. 
SAVE it as CONCENTRATION and RUN it. 

In addition to the expected features of the error-trapping input 
routine, CONCENTRATION incorporates other features that make it 
easy to use. A matrix of letters at the lower left side of the screen 
represents the cards. This matrix remains on the screen throughout 
the game and is updated whenever selections are made and matches 
found. Thus, a player is reminded not to select the same letter for 
both cards in a pair and not to select a card that has already been 
matched. (In the latter case, the clue letter, as well as the card, is 
removed from the screen.) 

What message does the program display when the card selected has 
already been removed? 



THAT CARD WAS ALREADY PICKED. 
(See Lines 3598 through 3610. ) 

Another advantage of using the letter matrix is that players don't 
need to use a joystick or remember a complicated series of directions 
to move the cursor; all information necessary for playing remains on 
the screen throughout the game. When a player makes an error, the 
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program prints a helpful message. Players who want to stop the 
game before the end just press ESC and then RETURN. 

Inverse video and flashing text are difficult to use tastefully. 
However, in CONCENTRATION, inverse is used effectively for the 
message "YOU MATCHED ALL THE PAIRS." Flash is used to signal 
that the player found a matching pair. 

What line number in the program holds the message that a pair was 
found? 



Line 5000. Note that Q$ is also used to hold other printed messages 
at lines 3600, 3700, and 4000 and is always printed at line 3900. 

As far as the player is concerned, the game has only one difficulty 
level. However, you can change several program parameters that 
affect the game's difficulty. The important items, those that affect 
what the game looks like, are all written in variables and assigned 
early in the program. We designed CONCENTRATION so that you 
can easily change the number and type of color patterns presented. 
The patterns are combinations of three or five horizontal or vertical 
stripes (see lines 1040 and 1050). Program changes can make the 
possibility set include fewer colors (line 1510), fewer stripe varia- 
tions (line 1500), and more or fewer cards (line 1520). The cards are 
always scrambled at the beginning of each game. 

We chose to display twelve cards (six pairs) and to make the color 
selection from all color pairs and patterns for aesthetic reasons. We 
wanted two full rows of cards, and we also wanted a colorful, 
challenging game. However, you can make your own decisions 
about those parameters if you make sure that the number of stripe 
variations times the number of color pairs is greater than, or equal to, 
the number of pairs of cards. 

How do you change the number of cards displayed at the beginning 
of the game? 
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1520 NP = 12 (Twelve is the maximum number of color pairs — see 
line 1010.) 

To make the game easier to play, reduce the number of card pairs, 
the number of card types and color pairs, and the number of stripes 
in the cards. 

CONCENTRATION has no sound. We think the game should be 
purely visual. However, if you want to add sound, include SOUND 
MODULE and assign appropriate numbers to the variables. Many 
other elegant programming techniques are employed in this game. 
Look the listing over carefully to find and appreciate them. 



STARS 



STARS is a number-guessing game originally developed at the Peo- 
ple's Computer Center (that later became the Community Computer 
Center.) Unlike the other number-guessing games, which can just as 
easily be played with paper and pencil, STARS takes advantage of 
the computer's quick calculation capability. The program responds 
to guesses by displaying stars, instead of words, as clues. The more 
stars you get, the closer you are to the secret number. The program 
calculates how many stars to display. An interesting feature of 
STARS is that the response to each guess gives useful information 
about the correct answer. 

STARS was originally written for teletypes. We have written a 
new, LO-RES color version of it for your APPLE that takes advantage 
of the APPLE'S screen formatting capabilities and also makes use of 
the error handling in the INPUT MODULE. We have also used the 
Pause or Keystroke Subroutine. Thus, the program pauses briefly 
after each clue is displayed, but a player may shorten the pause by 
pressing a key. 
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10 REM . . . BTARB- INPUT BOUND IMAGE. . . 

11 : 

997 : 

998 REM aa ONE-TIME INITIALIZATION at 
199 : 

1000 BPS = CHRS (7) 
1010 L2 s LOG (2) 
10 20 MM s 1 

1030 m = 40 

1040 Sl% ^ LOG (MI - MM) / LOG (2) * 1 
105 0 TS * 13 
10B0 GB s 38 
1070 GT = GB - 27 
1117 ; 

1198 REM * COVER SCREEN * 

1199 : 

12 00 GR : HOME 

1210 FOB Z ■ 1 TO 10 0. REM CQLQB DOTS 
1220 COLOR^ 15: IF BUD (1) < .75 THEN COLORs J3 
1230 PLOT INT (40 * BHD (J)), INT (40 * HUD ( 1 ) ) 
1240 NEXT 

1250 COLOR^ 15: FOB Z s 15 TO 2 3. BEH WHITE RECTANGLE 
1260 HLIN 4, 34 IT Z 
1270 NEIT 

1 280 1$ ■■. "STABS" : IV = JS:XC(J) - 0: GOSUB 15 300 

1210 VTAB 23: HTAB 8: PHI NT "FBEBB RETURN TO CONTINUE ..." i 

13 00 GOSUB 115 00: HEM WAIT FOH KEYSTROKE 
1310 IF II s - 1 THEN END : HEM ESC 
1900 GOSUB 9000: BEH INSTRUCTIONS 

19S7 : 

1998 BEH INITIALIZATION FOB NEIT GAME at 

1BBB : 

2000 GOSUB 1500: HEM HI1ED SCREEN SETUP 
2010 A ^ INT ( {HI - MN $ 1) * HND (1)) + MN 
2020 N ^ 0 

2 0 3 0 Y L - MN 
20 40 YH ^ MI 
2917 : 

2911 : HEM ** NEIT TURN at 
2999 : 

30 00 FBINT "GUESS: " ; 

3 010 YW ^ 3: GOSUB 11000: HEM INPUT INTEGER 
3020 I F Z% s - 1 THEN 6200: REM ESC 

3030 IF Z% < > 1 THEN HTAB TB : FBINT "NUMBER FROM " ;MN; " TO " iHl i 

", FLEABE": GOTO 3000: REM INVALID IffTEGER 
3040 G s Z 

3100 M = W + 1: HEM * VALID GUESS * 
3110 IF A s G THEN 5 00 0 
3S97 : 

3991 REM as INCORRECT GUESS at 
3 9 9 9 : 

4000 S% ^ Sl% = INT ( LOG ( ABS (G - A)) / L2) 
4010 GOSUB 8000 
4020 GOTO 3000 
49S7 : 

4998 HIM a* COHHICT GUESS 

4999 : 

50 0 0 S% ^ 20 

5010 GOSUB 8000: REM BAH GRAPH 

5 0 20 WD - 100 :Z§ « "JIAHHJJH": GOBUB 13 300: HIM BOUND 
5030 FBINT 
5040 FLASH 

5050 HTAB 9: PRINT "YOU GOT IT IN " ;N; " GUESS"; 
5060 IF M > 1 THEM PRINT "ES"; 
5070 PRINT " J " 
5 08 0 NORMAL 
5997 : 

5118 REM at AGAIN? at 

5119 : 

1000 HTAB 1: VTAB 2 4 

6010 FB1N7 "PLAY AGAIN (Y OH N) ? " ; 
1020 GOSUB 11200: HEM Y/N 

6030 ON Z% + 2 GOTO 610 0,6000,2000,1100: HEM ESC, INVALID, Y, N 
6100 PRINT : PRINT 

1110 FBINT "THANKS FOH PLAYING. " ; 
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§120 END 

82 97 : 

ill! BEM ** QUIT « 

SI SI : 

1201 HTAB TB 

6210 PB INT "MY NUMBEB WAS " ; A 

BIZO GOTO S00O 

79 97 : 

79 98 BEM ** BESFONSE TO GUESS " 

7 S S S : 

100 0 HTAB 7B 

S0J0 SPEEDs 120 

8020 FOB J s 1 TO S% 

1030 PBJMT "ft";BFf; 

8040 MEET 

8050 SFEED^-255 

80§0 PBJMT 

107 0 JF GB - 3 « S% < GT THEM 5% ■ 5% = 1; GOTO 80 7 0 

810 0 HEM * PLOT BAB GBAPH * 

8110 COLOB* ,S% 

S1Z0 VI IN GB,GB - 3 « S% AT G - 

813 0 BETUBN 

8§97 : 

1118 HEM « JNSTBUCTJONS *® 

8111 : 

9000 TEXT : HOME 

SO 10 VTA1 4 

10 20 HTAB 14: FBJNT "*** STABS "ft" 

SO30 FBJNT 

1040 FBJNT 

S050 FBJNT "J AM THJN1JNG OF A WHOLE NUMBEB BETWEEN" 

90S0 FBJNT JUN i M AMD " ;MX;" . THY TO GUESS ¥HAT IT IS." 

S070 FBJNT 

1080 FBJNT "AFTEB EACH GUESS, J Mill DISPLAY OME OH" 

S0S0 FBJNT "MOBS STABS (*). THE CiOSEB YOU ABE TO" 

1100 PBJMT "MY MUMSEH < THE MOHE STABS YOU GET." 

1110 VTA 3 2 0 

1120 PBJMT "FBESS " ; : JMVEBSE : PBJMT "ESC";: MOHMAL : PBJMT 

" TO GJVE UP. " 

S130 FBJNT 

9140 PBJMT "FiESS HETUHM TO COMTJMUE... " ; 

Bim G0SU3 11500: HEM WAJT FOB KEYSTROKE 

91 S0 IF 2% = - 1 THEM S10 0: BEM ESC 

S20 0 GH : HOME 

1210 XI = "STABS " : XV = 0;XC(1> = 13: GOSUS 15300 

9220 PBJMT "....5. ..10. . .15. ..20. ..25. ..30. ..35. ..40" 

S230 POXE 34,22: BEM SET SCBOLLJMG WJMDOW 

1210 ' 1ETUBN 

B§ §7 : \ 

S4S§ BEM nilED SCBEEM LOWBES SETUP 

S4SS : 

9500 COLOBs 0: FOB 2 = GT TO GB: HLJM 0 ff 39 AT 2: MEXT : 

HEM CLEAB GBAPH ABEA 

9510 HOME : HEM CLEAB SCBOLLJMG WJMDO¥ 

95 20 HETUHM 
49991 : 

39 99 2 HEM «® STJ^IS i ft a 
49893 : 

#9 994 HEM OBJGJMAL VEBSJOM BY FEQFIE'B COMPUTEB COMPANY , 
MEMLO FABJC , CA 



49997 








#9 998 


' HEM 


ft ft VAB J ABLE CONVENT JONS ** 


49i99 








50000 


' HEM 


A 


ANSWEH 


50010 


HEM 


BPS 


BEEP (CHHS <7>) 


50020 


HEM 


F 


FLAG FOB VALJD JNPUT 


50030 


HEM 


G 


GUESS 


500#0 


HEM 


GB 


BOTTOM OF GBAPH 


50050 


HEM 


GT 


TOP OF GBAPH 


500SO 


HEM 


J 


LOOP COUNTEi 


50070 


HIM 


IZ 


LOG( 2) 


50080 


HEM 


MN 


MJNJMUM AMSWEH 


50090 


HEM 


111 


MAX J MUM 


50100 


HEM 


N 


1 OF GUESSES 


50110 


JfBM 


5% 


I OF STABS FOB GUESS 


50120 


HEM 


SJ1 


MAX • OF STABS ♦ 1 
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50130 MEM TB TAB POSITION FOB RESPONSE 
10 0 0 0 ; 

0002 0 MEM * COPY II GMT 1BB1 BY HOWARD FRANKLIN* PALO ALTO # CA * 
6002 0 : 



Type it and merge with INPUT MODULE, SOUND MODULE, (delete 
lines 18000 through 19999) and IMAGE MODULE. SAVE it as 
STARS and RUN it. 

As you remember, LO-RES permits only four lines of text at the 
bottom of the screen, so we put the instructions at the beginning of 
the program. However, the visual display reminds the players of the 
game's idea. 

In STARS, the clues are dramatically displayed on the LO-RES 
screen. The number line provides a visual organization of the in- 
formation that simply was not available in the teletype game. Be- 
cause all clues remain in view, we think it is acceptable to leave only 
one previous response in the text portion of the screen. 

This version of STARS is particularly pleasing to us because we 
have integrated the graphics into the game, rather than using them 
simply as decorations. When you are designing or enhancing your 
own programs, try to consider how you can integrate graphics, using 
lines and images to display helpful information. 

We did not limit the number of guesses permitted as is usually 
done in games of this type. Limiting the number of guesses in an easy 
game can inhibit play by children. Using the ESC convention to let 
the player choose to quit is much more friendly. 



SIMON 

SIMON is our version of the popular game in which the computer 
plays a tune and the player tries to play back the same tune. 
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10 HEM . . .SIMON-INPUT SOUND. . . 

11 : 
SS7 : 



SSI 


BEH 




ONE-TIME INITIALIZATION « 


sss 










10§0 


Bin 


Tft< 3 0) 




1 1 00 


01 ^ 


1: 


HEM 


ECHO DIGIT I N TUNE OPTION 


JUO 


02 = 


1 : 


HEM 


MOTE UNDEH 101 OPTION 


1120 


03 ^ 


1 : 


HEM 


SELECT 101 OPTION 


11 30 


04 = 


1 : 


HEM 


SOUND NOTE OPTION 


1200 


TL s 


1 : 


HIM 


LOWEST NOTE 


1210 


TH a 


8 : 


BEE 


HIGHEST NOTE 


1220 


TD s 


80 


BEH 


DURATION OF EACH NOTE 


1230 


TP s 


ID 


BEH 


PAUSE 1ETWEEN SOUNDS 


2240 


LL = 


3 : 


BEE 


MINIMUM LENGTH OF TUNE 


1250 


LH s 


20 


HEM 


MAI I MUM 


1300 


IV s 


3: 


HEM 


101 HEIGHT 


1310 


VH B 


30 


HEM 


V-FOS OF 101 AT HEST 


1320 


vs - 


VR 


- av 


- 8: HEM V-FOS OF 101 SELECTED 


1330 


HT » 


IS 


HEM 


H-FOS OF TUNE 


1340 


vc ^ 


23 


HEM 


V-FOS OF COMFUTEH'S TUNE 


1350 


VL = 


24 


HEM 


V-POS OF LENGTH 


13B0 


VY s 


22 


HEM 


V-POS OF YOUH TUNE 


1400 


CI s 


1 : 


HEM 


BACKGROUND COLOH 


1410 


CH = 


2: 


HEM 


101 AT HEST COLOH 


1420 


CH - 


3: 


HEM 


101 SELECTED COLOH 


1500 


L - 


LL. 


HEM 


LENGTH OF FIHST TUNE 


15S7 










15SI 


' BEH 


* 


COVER SCREEN * 



1 5 S S : 

IS 00 TEIT : HOME 

1610 ¥F ^ 0: G0SU1 13000: HEM AVOID INITIALIZATION DELAY WITH FIHST 
NOTE 

1S20 Sf = "SIMON" 

1B30 FOH J s 1 TO LEN (SI) 

1B#,0 VTAB IS: HTA1 17 * J: INVEHSE : PHINT MIDI <SS,J,1) 

1150 VTAB 12 - 2 * J: HTA1 2 * 6 * J: PHINT MIDI (S$ , J, 1) ; . NOHMAL 

1SS0 yp s J.WD s 60: G0SU1 13000: HEM NOTE J 

IS 70 YP ^ 15: G0SU1 114 00: HEM AUSE 

2 0 0 0 PHI SoT CHHI CO) ;• " " 
1SS0 NEIT 

1700 -SPEEDS 100: FOH Z = 1 TO 4: PHINT CHHI ( 7 ) ; : NEIT : BFEED^ 255 

1710 VTA1 23: HTA1 8: PHINT "FHESS HETUHN TO CONT INUE . . . " ; 

1720 GOSU1 11^00: HEM WAIT FOH KEYSTROKE 

1730 IF Z% s =1 THEN END : HEM ESC 

1S00 HEM GOSUB S000: HEM INSTHUCTIONS 

1SS7 : 

18S8 HEM ** INITIALIZATION FOH MEET TUNE 
1SSS : 

20 00 FOH J = 1 TO X: HEM GENEHATE TUNE 
2010 T%( J) ^ (TH - TL) * HND (1) 4- TL 
2020 NEIT 

2030 GOSUB 8300: HEM SET UP BQ1EB 

2040 VT s VC.-OS ^ 01:01 » 0: GOSUB 8S00: HEM PLAY COMFUTEH'S TUNE 

(DO NOT PHINT TUNE) 
2050 01 s OS: HEM HESTOHE PHINT TUNE OPTION 
20 B0 YP u 10: GOSU1 11400: HEM PAUSE 
210 0 HOME 

S110 VTAB VL: HTA1 HT - 8: PHINT "LENGTH: »; L ; : HIM DISPLAY LENGTH 
2120 VTJIB VY: HTA1 HT -'11: PHINT " YOUH TUNI : " ; 
2130 WJ = J: HEM FIHST NOTE 

2557 : 

2558 HEM ** GET NEIT NOTE IN TUNE 

29 9 9 : 

3000 GOSU1 11800: HEM GET KEYSTROKE, NO ECHO, WITH TYPE-AHEAD 
3010 IF Z% = - 1 THEN VTA1 VY: HTAB HT - 1 * N J : FLASH : PHINT 

"ESC" ; : NOHMAL : GOTO §000: HIM ESC 
3020 N ^ Z - 176: HEM CONVEHT TO NOTE # 

30 30 IF N < TL OH N > TH THEN 3 000: HEM INVALID NOTE 
30 4 0 VT u VY: GOSUB BS00: HEM HESPOND TO NOTE 

3050 IF N B TKtCNJ) THIN 5000: HEM COHHICT NOTI 

3557 : 

3558 HEM as TUNE WAS INCOHHECT ** 
3SSS : 

4000 BFEED^ 100: FOH Z = 1 TO 4: PHINT CHHI < 7 ) ; : NEIT : SPEED^ 255 
#010 YP = 10: GOSUB 11400: HEM FADBE 
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4020 OS = 01:01 
TUNS) 
030 01 



1: GOSUB SSOD: REM FLAY COMPUTER'S TUMI (PRINT 



OS 



IF L 
GOTO 



HEM ®® COffJflCT NOTE «* 



MJ s WJ 
If NJ { 



HEM ** GOT IT ** 



HOME 

VTJI1 VY: HTAB HT 
S = Ql :01 a 1 : GOSUB 
1 =09: HEM BESTOfE 



HEM 
IF L 



HEM « AGAIN? ** 



040 
050 
H97 
918 

0 9 9 
000 
010 
097 
098 
009 
100 
110 
120 
J 30 

iqo 

150 
9S7 
998 
999 
000 
010 
020 
030 
100 
110 
120 
997 
998 
9S9 
000 
010 
020 
050 
060 

1 00 
11 0 
1 20 
150 
ISO 
200 
210 
220 
230 
240 
250 
260 
270 
300 
310 
320 
330 
340 
350 
3§0 
370 
380 
400 
410 
420 
450 
500 
510 
520 
530 
540 
600 
610 

NORMAL , 
120 IF Q2 

IF 03 > 
IF 04 > 
IfP = TP : 
IF 03 > 



HEM BESTOHE PRINT TUME OPTION 
> LL THEN L s L - 1 
S000: HEM AGAIN? 



4- 1 



> L THEM 3000: HEM NEXT MOTE 



as ME IT TUME 
< LH THEM L s 



12: PHINT "YOU GOT IT: % 

8 900: HEM PLAY THE TUNE (PHJMT TUME) 
OPTIOM 

1 1 



PHJMT TUME 
OME LONGER 
* 1 



HEM * EBASE BOI M AT HEST 



HEM 



HEM 



DISPLAY BOI M SELECTED 



EHASE BOI M SELECTED 



DISPLAY BOX M AT HOW 1 



830 

850 

seo 



HTJiB I: VTAB 24 

PHIMT ,r ANOTHER TUMI (Y OH N) ? " ; 
GOSUB 1120 0: HEM Y/M 

OM Z% * 2 GOTO 6100,§000,2000, S100: HIM ESC , INVALID, Y, N 
PHINT : PHIMT 

PHJMT "THAftSXS FOE PLAY IMG . " ; 
END 

'HEM ** DISPLAY BOI SUBHOUTIMES ** 
COLOH^ CH: HEM * DISPLAY BOi N AT HEST 

Z a Vf? 

GOTO 8200 
COLOH^ CB 
GOTO 8010 
COLOH^ CS 

z = vs 

GOTO 8200 
COLOHs CB 
GOTO 8110 
Zl = - 4 ♦ 5 ® N: HEM 
HEM M = BOI § 

HEM COLOH SET FOH DISPLAY OH EHASE 
HEM Z s HOW # 

FOH Zl s Z 4- BV - 1 TO Z STEP - 1: HIM DISPLAY FIOM BOTTOM 
MLIM ZJ t ZJ + 2 AT Z2 
NE1T 
HETUHM 
GH : HOME 
COLOH= CB 
FOH Z s 0 
HLIM 0 , 39 
NEXT 

FOH M = TL TO TH 
GOSUB 8000 

NEXT 
HETUHM 
ZS ^ STHI (M) : HEM 
INVERSE 
GOTO 8500 

2% s » ": HEM * EHASE DIGIT UMDEH BOI M 
VThE 11: HEM * DISPLAY Z$ UMDEH BOX N 
HTAB - 2 4- 5 * M 

PHINT %% ; 
NOHMAL 
RETURN 

HEM * RESPOND TO MOTE N, MJ MOTE IM TUME, 
IF 01 > 0 THEM VTAB VT : HTAB HT - 1 + MJ : 
HEM ECHO MOTE JM TUME 

> 0 THEM GOSUB 8 400: HEM ECHO MOTE UMDEH BOI 

> 0 THEM COSUB S05 0 : GOSUB 8 J 00: HEM SELECT 102 
) 0 THEM ¥B s TB.-WP = N: GOSUB 13 00 0: HEM PLAY MOTE 
: GOSUB 11400: REM PAUSI 

0 THEM GOSUB 8150: GOSUB 8 000: REM DE-SELECT BOI 



: HEM 

TO 3 8 
AT Z 



B1SFLM BACKGROUND AMD 1M1TJAI BOIES 



* ECHO DIGIT UMDEH BOI M 



ECHO MOTE OM LIME VT 
IMVEHSE : PHIMT M; : 
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8S70 IF 02 ) 0 THEN G0SU1 8450: IBM ERASE MOT: IIMDEI §02 
80 80 BE TURN 

¥T s VC: REM * PLAY THE COMPUTER'S TUNE 
BSii IF 01 > 0 THEM WThE ¥T : HTi a D HT - 17: PRINT "COMPUTER'S TUNE : " ; 
SSO0 REM & PLAY TUNE ON LINE VT * 
8 910 FOR MJ § J TO L 
SS20 N = T%(NJ) 

8§30 GOSUB 8S00: MEM MEBPQMB TO NOTE NJ IN TUNE 

8940 NEXT 
IS 5 0 RETURN 
8 9 9 7 : 

0S98 REM INSTRUCTIONS «« 

8 9 9 9 : 

9000 TEXT : HOME 
0200 PRINT 

9210 PRINT "PRESS " ; . INVERSE : PRINT "ESC" ; . NORMAL : PRINT 

" TO QUIT. " 
9220 PRINT 

9230 PRINT "PRESS RETURN TO CONTINUE... " ; 
9240 GOSUB 11500 

1250 If 21 s -1 THEN B10 0: REM ESC 

9 2S0 RETURN 

13120 DATA 255, 228, 203, 192, 171, 152, 135, 127 
6 0 0 0 0 : 

10010 REM * COPYRIGHT 1981 BY HOWARD FRANKLJN, Pi^LO ALTO, CA * 
S0020 : 



Type it and merge with INPUT MODULE and SOUND MODULE. 
SAVE it as SIMON and RUN it. 

The player's task is to copy the computer's tune, using the number 
keys. Our game provides both visual and auditory clues — the blocks 
move and the numbers appear as the note sounds. The player can 
concentrate on the numbers, the relative position of the blocks, the 
notes, or any combination of these three. 

Look at all the variables you can change to alter the game (see lines 
1100 through 1500). Changing these variables gives this game a 
tremendous range of possible variations! To minimize visual dis- 
traction, we have colored all blocks the same color. You can change 
the box color and background color by changing the colors in lines 
1400, 1410, and 1420. 

Each successive tune is different, created at random from the 
available notes. The difficulty of the game is determined only by the 
tune's length. Longer tunes are more difficult; shorter tunes are 
easier. The player's success with the previous tune determines 
whether the next tune will be harder or easier. Thus, the game 
constantly adjusts itself to match the player's ability. 

You can also make the game more difficult by shortening the pause 
between notes. What line number would you change? 
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1230 TP = 

The number of possible notes (and of blocks in the game) is deter- 
mined in the program. We have used eight notes. 
1. How would you modify the program to make it select from only 
five notes? 



2. How do you change the length of the first tune played to 5? 



3. How would you modify the program to eliminate the numbers 
that appear when a note is played? 



1. 1210 TH = 5 (Or change TL and TH so that any 
five numbers separate them. ) 

2. 1240 LL = 5 

3. 1110 Q2 = 0 



The program responds immediately to the first incorrectly pressed 
key. Thus, if a tune is 3 5 4, and you type 3 6 4, the program will stop 
at the 6, signal you, and play the tune correctly. 
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CHAPTER SUMMARY 

This chapter is our pride and joy. In it we have shown you three 
superlative games. STARS is a high-tech version of an old computer 
standard; CONCENTRATION and SIMON are popular games from 
other media. In these versions we have brought them into the space 
age. With the many easy-to-make variations, you have a myriad of 
possible CONCENTRATION and SIMON games. Enjoy them all! 



APPENDIX A 

Renumber/Append Routine 



To easily use the routines and subroutines provided in this book, 
you must merge the routines with your own programs. In some 
cases, you will have to renumber your programs so the merge can 
take place. 

On the System Master disk that came with your APPLE computer 
is a utility program that allows you to both renumber and append 
(merge) programs . Here is a brief summary of how to use the program 
(a complete set of instructions can be viewed by running the pro- 
gram called RENUMBER INSTRUCTIONS). 

1. RUN the RENUMBER program. It will be loaded and 
saved in the high memory locations of the computer. 

2. Load your program into memory by typing: LOAD 
NAMEl RETURN 

3. Type: &H RETURN. Your program will be placed on 
HOLD. 

4. Load the second program by typing: LOAD NAME2 RE- 
TURN 

5 . Merge the two programs together by typing: &M RETURN. 
The resulting program will be found in memory. You 
should SAVE it using its own name before you do any- 
thing else (better safe than sorry). The complete program 
can now be RUN. 

We have intentionally numbered our routines and subroutines so 
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that they should not interfere with programs you will write. It is 
important that the line numbers of the two programs you want to 
merge do not overlap. If they do, some strange things will occur. For 
example, if two statements have the same line number, they will 
both appear in the final program. To avoid this and other problems, 
you should renumber the statements in your program and/or the 
subroutine you wish to merge so line numbers do not overlap. You 
can use the same RENUMBER program described above. The proce- 
dure is: 

1 . RUN the RENUMBER program to save it in high memory. 

2. Load the program to be renumbered. 

3. To renumber your program type: & RETURN. Your entire 
program will be renumbered starting with line ten in 
increments of ten. All line number references in GOTO, 
GOSUB, IN. .GOTO, and IF. .THEN statements will be 
fixed for you. It may take as much as one minute to 
completely renumber a 16K program. Your computer will 
be sitting idle, but don't panic and hit RESET. This prog- 
ram may now be SAVEd, RUN, LISTed, or anything else. 

The renumber process can also renumber starting with a number 
other than ten, or in increments other than ten. You can also use the 
program to renumber segments of programs without renumbering 
the entire program. Here is the explanation: 

F indicates the first new line number. 
I indicates the increment between lines. 
S is the start or first line number to be renum- 
bered. 

E is the last or ending line number to be renum- 
bered. 

&F 100, I 20, S 350, E 660-Renumber the statements between 350 
and 660 in increments of 20, beginning with line 100. The resulting 
line numbers will be 100, 120, 140, . . . 

&S 1000, E 2500, F 1000, 1 15-Renumber the statements from 1000 
to 2500 beginning with line 1000 and incrementing by 15. The 
resulting line numbers will be 1000, 1015, 1030. . . . 



Appendix B 



Eamidlem RamlbMegs Fmeth On© 
Programmer to Another 



This appendix, written for the experienced programmer, outlines 
the rationale behind some of the programming choices made 
throughout this book. It describes the need for a subroutine library 
and the restrictions in APPLESOFT BASIC that affect the construc- 
tion and use of such a library. Assembly listings are included for 
those features that are essential but cannot be written in BASIC. This 
appendix is also a collection of comments about some of the pro- 
grams presented that are too technical to present elsewhere (also 
known as "ramblings"). 

This appendix, however, is by no means a thorough, step-by-step 
analysis and description of each algorithm and line of code. The 
REMs contained within the listings trace the flow and can be studied 
to answer specific questions. 



Subroutine Library 

From a program design viewpoint, a subroutine extends the capabil- 
ity of a given programming language. Once constructed and debug- 
ged, a subroutine is logically equivalent to a "super-command." 
Some subroutines are specific "super-commands" for a given ap- 
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plication (i.e., display a variable number of * ? s in STARS, line 8000). 
Other subroutines are more general "super-commands" that are 
useful in many applications (i.e., input and echo a string, trap for 
ESC, and test if it is an integer within a variable range). A subroutine 
library is simply a collection of those subroutines which are consid- 
ered to be of general use. 

This book has developed four subroutine modules (groupings of 
subroutines). Each module extends the capabilities of APPLESOFT. 
INPUT MODULE extends the INPUT/GET commands, SOUND 
MODULE implements a sound function. IMAGE MODULE manipu- 
lates block images in LO-RES graphics, and NEXTDATA MODULE 
implements a RESTORE to any line number, rather than to the first 
DATA statement. Refer to chapter summaries for their usage. Ramb- 
lings about these modules appear later in this appendix. 



Problems in Implementing a Subroutine Library 

There are two types of problems to solve when implementing a 
subroutine library. The first type involves limitations imposed by 
the given programming language. In APPLESOFT, there are three: 
variable name conflicts (changing values of variables in the sub- 
routines that are also used in the main program), line-number con- 
flicts (overlapping ranges of line numbers), and DATA-statement 
conflicts (inability to READ data from a given line number because 
DATA statements from other subroutines, or even the main program 
itself, might precede it). Other programming languages, or even 
other versions of BASIC, eliminate some or all of these "syntactical" 
problems. LOCAL variables eliminate the first; languages without 
line numbers eliminate the second (obviously not BASIC); and 
"RESTORE X," where X is a line number, eliminates the third. 

The second type of problem in implementing a subroutine library 
involves difficulty in actual use of the library. "Calling sequences" 
(where, with what entry conditions, and with what exit conditions) 
must be clearly documented. Initialization requirements must also 
be specified (i.e., "Load machine code routine X at location Y before 
using"). Most important, the subroutines themselves should be 
well-modularized, avoiding unnecessary "side-effects" (i.e., dis- 
playing "OUT OF RANGE"), so that they are usable in a variety of 
applications. All of these problems are generally independent of a 
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given programming language. Instead, they are a function of careful 
planning by the programmer. 



Solutions Chosen 

There is no "right answer" to these problems. Instead, there are a 
variety of solutions which will work. Those presented in this book 
are "best choices" made by the programmer for various objective and 
subjective reasons (ease of interfacing, aesthetics, and whims). 

Problem #1: Variable-Name Conflicts 

By fiat, variable names beginning with W are reserved for the 
SOUND MODULE, X for IMAGE MODULE, Y for INPUT MODULE 
and NEXTDATA MODULE, and Z as temporary variables. In gener- 
al, main programs should only use variable names beginning with 

A/V. 

This solution may at first seem arbitrary since not many of the 
possible variable names in the range W/Z are used in the modules. 
An alternative might b e to select a small , reusable set, and document 
the actual "reserved" names. This solution is not "easy" or "aesthe- 
tic" for various reasons: It is easier to remember not to use W/Z than 
not to use certain reserved names; it is more difficult to ensure that 
the modules themselves do not conflict with each other; it is more 
difficult to interface with the modules when "obscure" variable 
names are used. BASIC code is hard enough to read, anyway, and 
variable names were selected to preserve mnemonics where possi- 
ble (i.e., XH is a horizontal position for the IMAGE MODULE, while 
YH is the highest integer in the range in the INPUT MODULE— YM 
could be minimum or maximum). The proposed solution generates 
prettier code. 

Following are some additional prejudices about variable names. 
Avoid the letters I and O — they are too easily confused with 1 and 0. 
By convention, use integer variables for return codes (Z%=-1 ESC; 
=0 invalid integer; =1 valid integer), not for return values (Z = value 
if integer valid). Also use integer variables for flags (WR%>0 if 
sound routine already loaded) . To conserve RAM, use integer arrays, 
rather than real arrays, where possible (i.e., L%Q and R%() in 
MATCH). Use INT() rather than integer variable — the code is easier 
to follow. 
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No consideration has been given to improving execution time of 
the programs by ordering the appearance of variables. (Refer to 
APPLESOFT II Reference Manual, Appendix E.) There is no un- 
obscure way to include this capability in a subroutine library; 
however, the experienced programmer may play at will. The pro- 
grammer chose program clarity as more important and so chose to 
ignore the speed-of-execution issue. With the exception of IMAGE 
MODULE, the subroutines run "fast enough." 

Problem #2: Line Number Conflicts 

By fiat, reserve lines lOxxx/llxxx for INPUT MODULE, lines 
1 3 xxx for SOUND MODULE, lines 15xxx for IMAGE MODULE, 
lines 1 9 xxx for NEXTDATA MODULE, and lines 20100/49999 for 
the image library in IMAGE MODULE. 

As with the variable name solution, this solution also has competi- 
tion. An alternative is to use the Renumber Program not only for 
merging (as it is now used to append subroutines to the main pro- 
gram) but for renumbering as well — simply renumber the sub- 
routines needed where there is "room." The major objection to this 
solution is that the entry points will vary from program to program 
and will therefore be more difficult to use than fixed-entry points. 
Further, it seems as though there are enough line numbers left for the 
main program. The programmer's aesthetics require modules to 
begin on 10000 — boundaries, major logical portions on 1000- 
boundaries, and minor portions on 100-boundaries. Therefore, 
massive renumbering leaves the program harder to follow (and 
ugly). 

GOTOs and GOSUBs are never to lines containing only REMs, in 
case they are deleted or left out when typing. Subroutines should be 
entered at the beginning — tricky entrances in the middle are danger- 
ous and make the code difficult to modify later (restructuring sub- 
routine nesting/entry variables can eliminate this need). 

One of the goals in making the listings readable was to select 
variable names, line numbering, and REM usage that was reasonably 
consistent from program to program (i.e., make the programs look 
like each other). The programmer's aesthetics evolved during this 
process with the effect that later programs are more consistent than 
earlier ones ("It's too hard to be consistent"). It's difficult to write 
pretty code in BASIC; these programs represent one programmer's 
attempts to create beauty. 
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As with ordering the appearance of variables, carefully ordering 
line numbers can speed up execution (see APPLESOFT II Reference 
Manual, Appendix E). Likewise for the reasons to ignore this 
problem. 

Problem #3: DATA Statement Conflicts 

The solution is straightforward and tricky. A "RESTORE X" 
(where X is any line number) was added in NEXTDATA MODULE. 
Many BASIC'S already have this capability — unfortunately, APPLE- 
SOFT does not. The image library in IMAGE MODULE avoids an 
incredible amount of bookkeeping by beginning each image at 
2QQQQ + 1Q0*# and is easily implemented with RESTORE X. 
SOUND MODULE loads machine code routines by POKEing from 
DATA statements, rather than individual POKEs. (Notice, however, 
that NEXTDATA MODULE must load its machine code with 
POKEs.) 

Here is an assembly listing of RESTORE X: 



* APPLESOFT EQUATES 



9 DATPTB 
MBIT BEAD 



10 

11 
12 
13 
14 
15 
IS 
17 
II 



LINHUH 
LOW PTE 
FNDLIN 



EQU I7D ;MEMOBY LOCATION FOB 

SOU S50 ;LINE NUMBEB FOB ' FNDLIN ' 

EQU ISB ; ADDBESS FBOH 'FNBLIN' 

EQU $D61A ;SEABCH FOB LINE NUMBEB 



* HESTOHEI - NEIT BEAD FHOH LINE I 

* 

LINES DS 2 iLINE NUMBEB 



0302 


• AD 


00 


03 


19 HESTOHE2 


IDA 


limi i SET LINNUM 


0305 


85 


50 




20 


BTA 


XINNUH 


0 307 


• AD 


01 


03 


21 


IDA 


L1NEX+1 


0 30A 


85 


51 




22 


BTA 


LINNUM+1 


030C 


20 


1A 


Di 


23 


JBB 


FNDLIN iBEABCH 


030F 


A5 


9B 




24 

NEIT MEAD 


IDA 


LOWPTB ; UPDATE POINTEH FOB 


0 311: 


11 






25 


CLC 




0312 


89 


04 




28 


ADC 


#4 i OFFSET FOB ACTUAL DATA 


0314 


85 


7D 




27 


BTA 


DATFTB 


0318 


A5 


9C 




28 


IDA 


LOVPTJ? + l 


0318 


89 


00 




2S 


ADC 


#0 


031A 


85 


7E 




30 


B7A 


DATPTB*! 


031C 


10 






31 


ITS 





Problem #4: Documenting Calling Sequences 
The chapter summaries include all the calling sequences for each 
module. Additionally, REMs precede each entry point in the list- 
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ings. If REMs must be deleted to save space, the entry point REMs 
should be deleted last. 

Problem #5: Initialization Requirements 

The modules are self-initializing. They work even if the program 
"forgets" to initialize them. This was an important design goal since 
novice programmers are encouraged to use the modules in their 
programs. 

The solution is a rare example of an APPLESOFT trick (i.e., "It 
won't necessarily work in other BASICs") that the programmer 
could stomach. (The programmer finds that tricks, or "kludges" 
interfere with proper digestion.) This solution relies on the "feature" 
that RUN sets all arithmetic variables to 0 and sets strings to empty. 
Wherever initialization is required, a flag is tested (i.e., SOUND 
MODULE, line 13000 WR% = 0 not initialized; >0 already initial- 
ized). See INPUT MODULE, line 10000 for initializing YF$, the filler 
character. See IMAGE MODULE, lines 15310 and 15410 for initializ- 
ing XS, the space between images. Line 15020 in IMAGE MODULE 
(relying on an automatic DIM XC(10)) represents a marginally 
acceptable juggling of the programmer's aesthetics ("Why not?") 

Problem #6: Well Modularized, 
Avoiding Unnecessary "Side-Effects" 

The programmer thinks so and the publisher has been explicitly 
instructed not to represent opposing points of view. 



SELECTED COMMENTS ABOUT THE PROGRAMS 



The sound chapter uses two machine code routines, one to produce 
pitches for a fixed duration (SOUND), and the other to produce 
pitches until a new key is pressed (ORGAN). Assembly listings are 
included below: 
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0320 


AC 


IF 


0 3 


0323 


■ B9 


49 


03 


0 326 


8D 


IF 


0 3 


0 3 29 


AO 


0 0 




0 3 2B 


• EE 


IB 


03 


0 3 2E 


EE 


IE 


03 


0 3 3 1 


AE 


IF 


03 


0 3 3 4 


AD 


30 


CO 


03 37 


88 






0 3 3 8 


DO 


OA 




0 33JI 


■ CE 


ID 


03 


0 3 3D 


DO 


05 




0 3 3F 


• CE 


IE 


03 


0 34 2 


F0 


05 




0344 


CA 






0345 


F0 


EA 




0 347 


DO 


EE 




0349 


eo 






034A 


FF 


FZ 


B4 


0352 


Al 


98 


8F 


0 3 5JI 


B5 


5F 


5A 


0 3 6 2 


3F 


3B 


38 


03BJI 


28 


25 


23 



0 3 7 2 


AC 


IF 


03 


0375 


B9 


§8 


03 


0 378 


8D 


IF 


03 


0 37B 


AD 


00 


CO 


037E 


30 


OS 




0 3 8 0 


AE 


IF 


03 


0 3 8 3 


AD 


30 


CO 



33 
34 
35 
36 
37 
38 
3g 
40 
41 
42 
43 
44 
45 
46 
47 
48 



* APPLESOFT EQUATES 



CLICK 



EOU 



IC0 3 0 ■< SPEAKER TOGGLE 



a SOUND - SOUND A FITCH FOB A SET DUBATI ON 



ENTBY 



DUBATI ON~L t H SET 
PITCH OFFSET IN 
PITCH SET 



1 PITCHTBL ' (1740) 



DUBATI ON 
PITCH 



DS 
DS 



® ENTBY 1 : USE 'PITCH' AS OFFSET TO ACTUAL 



PITCH 



49 
50 
51 
52 
53 
54 

55 
56 
57 
58 
5g 
60 
61 



SOUND! 



a ENTBY 
SOUND2 
COUNTEB" 



NITCLICK 



LDY 
IDA 
STA 



FITCH 

PITCHTBL-1 , Y 
PITCH 



'PITCH' SET 



LDY 



INC 
INC 



IDE 
IDA 



( y , 



12 
S3 
S4 
65 
66 
S7 
S8 
Sg 
70 
71 
72 
73 
74 
75 
76 
77 
78 
71 

81 
82 
83 
84 
85 
86 
87 

88 
89 

go 

91 
g2 
93 
94 
95 
96 
97 
g8 
99 



COUNTDOWN DBY 
DUBATI ON-L ,H) 

BNE 
DEC 
BNE 
DEC 
BEO 



#0 ; INITIALIZE 24-BIT 

DUBATI ON 
DUBATI ON 

PITCH ■< BESTOBJE PITCH COUNT 
CLICK ; "CLICK" SPEMEB 

; 24-BIT COUNTEB 

NOTDONE 
DUBATI ON 
NOTDONE 
DUBATI ON*l 
DONE 



NOTBOME 



DONE 

ft 

® PITCHTBL 
PITCHTBL 



DEI 
BED 
BNE 

BTS 



; CHECK IF 
NITCLICK 
COUNTDOWN 



NEIT CLICK YET 



- PITCH VALUES 
HEX FFF2E4D7CBC0B5AB 
HEI A1988F877F7871SB 
HEI 655F5AS5504B4743 
HEI 3F3B3835322F2C2A 
HEI 2S252321201E1C1A 



17 8 
9716 
177 24 
25/32 
33740 



& APPLESOFT EQUATES 
KEY 



* OBGAN 
FBESSED 



a ENTBY: 

t 

OBGAN 



OBGCLICK 



EQU IC000 

- SOUND A FITCH UNTIL ANY KEY IS 

PITCH OFFSET IN 'PITCHTBL' (1/40) 

LDY PITCH 

LDA PITCHTBL=1,Y 

STA PITCH 

LDA KEY ; CHECK KEYBOABD 
BMI OBGDONE KEY WAS PBESSED 

LDI PITCH ; BESTOBE PITCH COUNT 
LDA CLICK , "CLICK" SPEAKEB 



* THE NEIT TWO INSTBUCTIONS ABE INCLUDED TO 

MAKE 

J00 * THE TIMING OF THE "INNEB LOOP" APPBOIIMATI 
EQUAL 

101 * TO THAT OF THE' PBEVIOUS BOUTINE 'SOUND'. 

102 * 
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1,03 * THIS BE: 

SIMILAR 
104 * FITCHES 









105 


* 


Q3BS : 


88 




10S 


OflGCOUNT 


0 3 8 7: 


DO 


00 


107 










108 


OftGNOF 


0 3 8 9: 


CA 




109 




038A: 


F0 


EF 


110 




0 3 8 C : 


DO 


FS 


111 










112 


* 


038E: 


6 0 




113 


OBGDONE 



'ITS IN THE PITCH VALUES PRODUCING 

W EACH BOUTINS 

DEY 

BNE OBGNOP 

EQU * ;EM) OF "WASTE " TIMS 

DSI ; CHECK IF NEIT CLICK YET 

BSD OBGCLJCX 

BMS ORGCOUWT 

ETS 



Notice that SOUND has two entries. The first, SOUNDl, uses 
PITCH to look up a value in PITCHTBL. The second, SOUND 2, uses 
PITCH as the actual value. Sounds are produced by clicking the 
speaker at an internal frequency determined by the value in PITCH. 
The relationship of the internal frequency to actual sound is a 
function of the timing of the machine code. Notice that PITCHTBL 
has allocated space for forty different internal frequencies. The 
16-bit value in DURATION controls the length of the sound. 

ORGAN uses the same frequencies in PITCHTBL and "wastes 
time" in its internal loop so that the internal timings approximate 
those of SOUND. Unlike DURATION in SOUND, ORGAN continues 
to produce its tone until a key is pressed. One of the limitations of 
the APPLE hardware is that there is no way to detect when a key has 
been released. Therefore, ORGAN must wait for a new key press to 
terminate. 

In the LO-RES Chapter, INPUT LENGTHS segments the keyboard 
into different sections, with each section affecting a different inter- 
nal parameter. This technique might be applicable to one of your 
programs and a simple addition to INPUT MODULE will implement 
it. 

The elegance of a subroutine library can be seen in the addition of 
three BASIC commands to SPIRAL2 to create SPIRAL SOUND. (The 
LO-RES cover screens in the last two chapters are also added with 
minimal new code.) 

IMAGE MODULE is already discussed in some detail in its chap- 
ter. Worth mentioning here is that execution speed can be substan- 
tially increased with the addition of machine code routines. This is, 
however, not the purpose of the book. Machine code was used only 
in the absence of a BASIC solution. Program length/disk access time 
can be shortened by including only those images you need in your 
program. 
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As for HI-RES, the programmer is thankful that there are commer- 
cial packages available The APPLE hardware can do it, but APPLE- 
SOFT is another matter. Refer to the APPLESOFT Reference Manual 
if the numeric variables and arrays (or even the program) override 
the HI-RES screen buffers — Appendix L contains the Zero Page 
pointers that can verify whether this has occurred. 

INPUT MODULE traps for the ESC key since it provides one of the 
few special keys that can be used by program logic to exit from the 
current level in a game (i.e., program). Requiring ESC-RETURN and 
echoing ESC eliminates the problem of a "hot" ESC key. 

ONERRGOTO is essentially useless, except while debugging pro- 
grams. Errors 0/224 are errors in logic (program redesign can avoid 
them). Since INPUT MODULE does not use the INPUT command, 
error 254 is not possible. Error 255, CTRL-C, is a nice idea but was 
incorrectly implemented — execution RESUMES with the statement 
that was just executed (i.e., RESUME after a CTRL-C will re-execute 
the same instruction, rather than continuing with the next). Alas, 
CTRL-C is only trapped while waiting for input. It is fatal if pressed 
otherwise. Maybe error 255 could be used to display a graceful adieu 
before the demise. Even if a brilliant solution is discovered, the user 
still has the RESET (or, CTRL-RESET) key in his arsenal. 

STORY is an example of a simple game gone wild with a cover 
screen in LO-RES, a trap for word breaks when displaying, and 
DATA-driven questions and story construction. 

BLOCKOUT struggled to overcome limitations in APPLESOFT 
substrings. The SCRN function, omitted from discussion in the 
LO-RES chapter, is used in line 8350 to guarantee that the block 
changes to a new color. 

Both MATCH and CONCENTRATION have fun manipulating 
data structures and produce some fascinating visual effects. Notice 
the addition of an inverted A and an inverted T to the IMAGE library 
for the MATCH cover screen. As an added challenge, play CONCEN- 
TRATION on a black and white TV and try distinguishing the subtle 
variations. 

STARS was another old favorite that got out of hand with the 
addition of LO-RES and sound. The effect of the graph erasing itself 
was purely accidental. 

SIMON reminds your programmer of the hot dog stands that 
advertize 1,048,576 varieties. The programs minimize the use of 
monitor calls and ESC sequences in PRINT comands. Such features 



140 GOLDEN DELICIOUS GAMES FOR THE APPLE COMPUTER 



obscure the readability of programs. A better solution is for language 
designers to expand languages to include additional commands 
(i.e., HOME instead of CALL-936). Until then, your programmer 
prefers to PRINT a string of blanks, rather than to CALL a monitor 
routine that clears to the end of the line. 



Please Write 



Your programmer welcomes all correspondence but regrets, in ad- 
vance, that there may not be time to answer each letter. Please write 
about bugs (AARGH!, "The typesetters blew it!"); extensions to the 
subroutine modules; and other modules. 
Please write to: 

Howard Franklin 

c/o Golden Delicious Games 

John Wiley & Sons 

605 Third Avenue 

New York, NY 10016 



APPENDIX C 

Typing Assistance 



If you are going to type all our programs into your APPLE by hand, 
the following comments may help you read and enter the listings: 

1. The modules should be saved on your disk just once, as 
they are, with no other program parts. That way you can 
always merge just the module with your program. You 
have to type the module only once! 

2. We carefully used high-line numbers for the modules so 
they would not interfere with your programs. Programs 
should not go beyond line 10000, though they can be 
resumed at line 50000. 

3. Avoid using variable names starting with W, X, Y, and Z 
in your programs, as they are used in the various modules. 

4. If you have doubts as to what you are reading in the 
listings, here are some clues: 

The letter I is not used as a variable name. We did not 
even use AI or ZL It's too easily confused with the number 
1. 

The letter O is never used as a variable name, to avoid 
confusion with number 0. AO does not exist either. 
You may find variables names like Al or B0 or C9. 

5. The line numbers and blank REM lines provide a natural 
divider between program sections and thoughts. 

6. If you are running out of memory space, you can delete all 
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or most of the REMs in the programs, but it's best that you 
leave them if you can, for future reference and changes. 
Delete on-line REMs first, then introductory REMs. On- 
line REMs annotate how the BASIC code works, while 
introductory REMs explain how to access the subroutines 
and make changes to the program. 
7. If you are running out of memory space, you can delete 
parts of the INPUT MODULE and parts of the IMAGE 
MODULE that are not used. For example, since the game 
STARS uses only the letters S, T, A, and R, all other 
images in the IMAGE MODULE can be deleted. 



APPENDIX D 

Evaluating Programis 



The phrase "user-friendly software" is being used often these days. 
As the quantity of available computer programs increases, people 
are becoming more selective about what they buy. They are looking 
not only for programs that will run on their computers, but also for 
programs that are easy to use. They are no longer patient with 
programs whose text scrolls off the screen, whose response require- 
ments are awkward, or whose questions are ambiguous. 

Throughout this book, we have made suggestions for program- 
ming conventions that are user-friendly. The INPUT routines, with 
their error traps and helpful error messages, are examples of user- 
friendly programming. The escape convention for exiting programs 
is another user-friendly routine. 

This Appendix summarizes the suggestions already made and 
adds others. Use the following checklist to measure both your own 
programs and commercial programs for their user-friendly qualities. 



DESIRABLE QUALITIES IN EDUCATIONAL SOFTWARE 

Introduction/instructions at the same level as the activity. 
Branching to avoid instructions. 
Branching for "expert" mode. 

Difficulty of task matched to required reading level. 
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Exit/interrupt information clearly stated. 
Well-formatted, uncrowded screens. 
Obvious choices of what to enter. 
Consistent input pattern (use either INPUT or GET). 
User-controlled flexibility in number of tries permitted. 
User-controlled timing in instruction presentation. 
User-controlled flexibility in difficulty of task. 
Response for right answer more exciting than for wrong. 
Helpful and non-negative responses. 
Easily accessible "help" screens. 
Error traps with helpful messages. 
Frequent screen clears. 

Consistent use of help and exit conventions. 
Avoid These 

Word wraparound. 

Reading/responding at bottom of the screen. 
Very "busy" screens. 
Inadequate spacing. 

Text scrolling off the screen (especially instructions). 
Excessive flashing text. 

Excessive use of sound, especially repetitive tunes. 

Consider These 
Is this a good computer application or could it be done better 
another way? 

Does the thinking required to play the game match the learn- 
ing experience being promoted? (Is two-step logic required 
in an otherwise simple game?) 

Is it totally easy to operate the program? Learning to get 
around in the program is not usually the point of the game. 



APPLESOFT Reference Manual, 58, 61, 134 
ASCII, 2, 48, 52 

BACK AND FORTH, 10 
Beeps, 2, 3, 4 
BELL, 2 

Bell games, 3-4 
Black box routine, 6 
BLOCKOUT: 

explanation, 97, 101-103 

list, 100-101 
B ORDER 1, 30 
BORDER2, 30 

Clicks, 1, 5, 9 
COLOR, 20 
Color chart: 

HI-RES, 62 

LO-RES, 20 
COLOR DOTS, 22 
Coloring the screen, 29-33 
COLOR LINES, 26 

Community Computer Center, 94, 97, 120 
CONCENTRATION: 

explanation, 118-120 

list, 114-118 
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COUNT BEEPS, 5 
CTRL G, 2 

ESC convention, 74 
Evaluating programs, 143-144 

FLOWERS, 25 

Full screen LO-RES, 35 

General purpose input subroutine, 74-80 
GR, 20 

HCOLOR, 62 

HGR, 62, 64 

HGR2, 62, 64 

HI-RES graphics, 61-67 

color chart, 62, 64 

color wash, 65 

HCOLOR, 62 

HGR, 62 

HGR2, 62 

HPLOT, 63-64 

problems, 65-67 
HLIN, 20 
HOME, 22 
HPLOT, 63-64 

Image library, 49 
IMAGE MODULE: 

background wash, 46 

centering, 44 

image library, 49 

images, new, 50-52 

line numbering convention, 48 

list, 38-43 

uncentered, 45 
Images, new, 50—52 
INPUT BEEPS, 4 
INPUT BOXES, 29 
INPUT COLORS, 28 



INPUT LENGTHS, 28-29 
INPUT MODULE, 72-74 
ESC convention, 74 

General purpose input subroutine, 74-80 
Get one keystroke ubroutine, 85-86 
Input decimal subroutine, 82-83 
Input integer subroutine, 80-81 
Pause or keystroke subroutine, 84-85 
Reference summary, 86-89 
Single character subroutine, 83-84 
Y/N subroutine, 83 

KEYS A/Z, 9 
KEYS 1/8, 8 

Letter game suggestions, 47 
LINE LENGTHS, 27 
LO-RES graphics, 19-35 

COLOR, 20 

color chart, 20 

full screen, 35 

GR, 20 

HLIN, 20 

mixed screen, 20-21 
PLOT, 20 
VLIN, 20 
wash, 31 

MATCH: 

list, 104-109 

to modify, 109-110 
MUSIC MESSAGE, 10 
Music sounds summary, 16 

NEXTDATA MODULE, 6 

ORGAN, 13 

Palindrome, 11 

People's Computer Company Newspaper, 94, 97 
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PIANO, 11-12 
PLOT, 20 

Random numbers formula, 22 
RENUMBER/ APPEND subroutine, 129-130 

SIMON, 123-126 
SNAKE, 97 
SOUND EFFECTS: 

explanation, 14-15 

list, 14 

Sound effects summary, 16-17 

SOUND MODULE, 6-8 

SOUND subroutine reference summary, 16 

SPEED, 3 

SPIRAL, 32 

SPIRAL SOUND, 34 

SPIRAL1, 32 

SPIRALS, 33 

SPIRAL2, 33 

STARS, 120-123 

STORY: 

explanation, 94-97 

list, 92-94 
STRING PATTERN, 68 
STRING PATTERN2, 68 

TEXT, 22 

THREE-COLOR TREE, 54-55 
TWO-COLOR TREE, 50-52 
TWO SPIRALS, 33 
Typing assistance, 141-142 

VLIN, 20 

WASH, 31 
WISHING WELL, 24 
Word wraparound, 95 



NOW AVAILABLE! 

All the game programs and subroutines listed in this book will 
help you get more enjoyment from your Apple than ever. Share the 
games with your friends and family, and build on the subroutines 
to write your own games! 

Save time and don't risk introducing keyboarding errors into your 
programs. Buy the two 5W disks at your favorite computer store, 
or order from Wiley: 



In the United States: 



In the United Kingdom 
and Europe: 

In Canada: 



In Australia: 



John Wiley & Sons 
1 Wiley Drive 
Somerset, NJ 08873 

John Wiley & Sons, Ltd. 
Baffins Lane, Chichester 
Sussex PO 19 1UD UNITED KINGDOM 

John Wiley & Sons Canada, Ltd. 
22 Worcester Road 

Rexdale, Ontario M9W 1L1 CANADA 

Jacaranda Wiley, Ltd. 
GPOBox859 

Brisbane, Queensland AUSTRALIA 



Franklin— APPLE® 1 GAMES PROGRAM DISK SET 1-86837-X 



To The Readier 



The computer programs from Golden Delicious Gaines for the 
Apple™ Computer are delivered to you on disks that are not copy- 
protected. That is, there is no mechanical or electronic device to 
prevent copying. They are copyrighted. We are morally committed 
to provide software that you can modify so you can both explore our 
games and by using segments from our programs, develop games of 
your own. We also feel you are entitled to have sufficient backup 
copies so that you need not fear that machine malfunction or per- 
sonal error will destroy your only copy of the program. 

Our moral commitment assumes a personal commitment on your 
part — that you will NOT make copies of our programs and distrib- 
ute them freely to your friends, neighbors, or user group. By not copy 
protecting these disks we are hoping to demonstrate to publishers 
and software developers alike that programs can be disseminated 
without copy protection and still be profitable. Without profit we 
know that publishers cannot continue offering software at reason- 
able prices. 

Please cooperate with our effort by making copies of these pro- 
grams only for your, own use. 

Sincerely, 

Howard Franklin 
Joanne Koltnow 
LeRoy Finkel 



NOW AVAILABLE 

All the game programs and subroutines listed in this book will 
help you get more enjoyment from your Apple than ever. Share the 
games with your friends and family, and build on the subroutines 
to write your own games! 

Save time and don't risk introducing keyboarding errors into your 
programs. Order the two 5W disks for only $34.95 today \ 

The APPLE® GAMES PROGRAM DISK SET is available at your 
favorite computer store. Or use the handy order card below. 



THE APPLE® GAMES PROGRAM DISK SET 



Yes, I want to start writing my own games. Please send me copies of 

the APPLE GAMES PROGRAM DISK SET at $34.95 each. 

1-86837-X $34.95 

Payment enclosed (including state sales tax). Bill me. 

Wiley pays shipping and handling charges. Bill my company. 



—Charge to my credit card: Visa Master Card 

Card number □□□□□□□□□□□□□□DO 



Expiration date 



Signature 



Name 



Title 



Company 



Address 



City 



State 



Zip Code 



1-86837-X 



263 



Signature (Order invalid unless signed) 



We normally ship within ten day s. If payment accompanies your order and shipment cannot be made 
within 90 days, payment will be refunded. 



TURN YOUR IMAGINATION LOOSE 
WITH APPLE® GAME PROGRAMS TODAY 



Buy the disks at your favorite computer store, 
or order from Wiley: 



In the United States: 



In the United Kingdom 
and Europe: 

In Canada: 



In Australia: 



John Wiley & Sons 
1 Wiley Drive 
Somerset, NJ 08873 

John Wiley & Sons, Ltd. 
Baffins Lane, Chichester 
Sussex PO 19 1UD UNITED KINGDOM 

John Wiley & Sons Canada, Ltd. 
22 Worcester Road 

Rexdale, Ontario M9W 1L1 CANADA 

Jacaranda Wiley, Ltd. 
GPO Box 859 

Brisbane, Queensland AUSTRALIA 



Franklin— APPLE® GAMES PROGRAM DISK SET 1-86837-X 



BUSINESS REPLY CARD 

FIRST CLASS PERMIT NO. 2277, NEW YORK, N.Y. 



NO POSTAGE 
NECESSARY 
IF MAILED 
IN THE 
UNITED STATES 



POSTAGE WILL BE PAID BY ADDRESSEE 

JOHN WILEY & SONS, Inc. 
1 Wiley Drive 
Somerset, N.J. 08873 



Attn: Apple® Games Program Disk Set 



Computers $12.95 

You can write your own games for the Apple II! 



TECHNIQUES f OR CREATING 

GOLDEN DELICIOUS GAMES 
FOR THE APPLE 9 COMPUTER 

More than just another collection of computer games, this unique book teaches you to 
create your own games on the Apple™ II. You'll learn the theory of game structure . . . how a 
game program progresses... the kinds of subroutines needed... and techniques to help 
you make full use of the Apple IPs graphic capabilities. 

The book includes many game routines— many never before published for micros. And it 
helps you build on these subroutines to modify other games— or to write your own! 

With just a fundamental knowledge of BASIC, you can turn your Apple II into a home 
entertainment center. Golden Delicious Games for the Apple™ Computer shows you how to 
control the Apple IPs brilliant colors using both low and high resolution graphics. You'll 
learn how to cover your whole screen with images you can design, as well as colored lines, 
boxes, borders, and spirals.. .and combine these patterns with music and sound effects. 
The book also includes special purpose input routines to make entering data easier. 



And there's more to Golden Delicious Games than pure fun. You'll iearn how to turn your 
Apple II into an educational aid for the whole family, and how to make all types of games 
user-friendly and tailor them to different ages and abilities. While .involved in games ranging 
from story construction to word guessing and matching, children will build language, 
number, and keyboard skills... and learn basic computer operations and logic. Parents, 
teachers, and Apple amateurs alike will enjoy and learn from Golden Delicious Games. 

Howard M. Franklin is a software consultant in Palo Alto, 
California. Joanne Koltnow markets educational software for Apple 
Computer. With co-author Franklin, she founded the Community 
Computer Center, the nation's first walk-in recreational computing 
facility. LeRoy Finkel, Instructional Computing Coordinator for the 
San Mateo (Calif.) County Office of Education, is the co-author of 
five other bestseliing Wiley Self-Teaching Guides. All three are J 
pioneers in the educational/recreational uses of computers. 

Save time and errors! All the game programs and 
subroutines in this book are available on disk— ready to 
use on your Apple™ for instant enjoyment. Buy at your 
favorite computer store or bookstore, or use the handy 
order card inside. 

Apple™ is a trademark of Apple Computer, Inc. Any questions concerning this book 
should be referred to the Publisher, John Wiley & Sons, and not to Apple Computer, 
which is not responsible for and was not involved in its preparation. 






More than a million people have learned to program, use, and enjoy microcomputers with 
Wiley Self-Teaching Guides. Look for them all at your favorite bookshop or computer store! 



JOHN WILEY & SONS, INC. 

605 Third Avenue, New York, N.Y. 10158 

New York • Chichester • Brisbane • Toronto • Singapore 



ISBN 0 471 09083-2 



